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NO RESPONSIBILITY IS ASSUMED FOR THE USE 


SOF TwARE ON EQUIPMENT THAT IS NOT 
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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


THE ML-11 MEMORY SYSTEM WITH ITS MOSTLY ARRAY TECHNOLOGY HAS 
THE FACILITY TO OFFSET AROUND KNOWN BAD MEMORY LOCATIONS IN 
ITS MEMORY ARRAYS. 


INITIALLY, THESE MEMORY ARRAYS ARE TESTED FOR BAD ROW AND COLUMN 
ADDRESS LOCATIONS AND THE SPECIFIC OFFSETTING INFORMATION IS 
STORED IN PROM ON THE ARRAY MODULE. THIS TESTING IS DONE ON A 
SPECIAL 2224 MEMORY TESTER BY MEMORY MANUFACTURING. 


THE DESIGN OF THE ML11 HAS ALSO PROVIDED LOGIC THAT WHEN UNDER 
SOF TWARE CONTROL WILL UPDATE AN ARRAY MODULES OFFSETTING INFOR- 
MATION. THIS LOGIC IS TO BE UTILIZED WHEN ADDITIONAL MEMORY 
CELLS ARE DISCOVERED BAD AFTER THE SYSTEM HAS LEFT THE MANUF ACT~ 
URING FACILITY. 


F 44S REQUESDEBERWECCREATION OF A PROGRAM THAT WHEN 


RUN WILL TEST A GIVEN ML-11 SYSTEM FOR ANY ADDITIONAL BAD MEMORY 
CELLS AND UPDATE THE OFFSET INFORMATION SUCH THAT THE BAD LOCATIONS 
WILL BE MASKED OUT. 


THIS PROGRAM WILL SELECTIVELY UPDATE BAD MEMORY CELL OFF 
Eee ENTIRE ML-11 SYSTEM, A SINGLE ARRAY MODULE OR A S 


SETING 
INGLE 


SEQ 0002 


D 1 
THE PROGRAM WILL EXERCISE THE ML-11 WITH ALL ONES, ALL ZEROES 
of ome DATA PATTERNS TO FIND ANY ADDITIONAL FAILING MEMORY 
C LL . 
ONCE THE ADDITIONAL FAILING CELLS HAVE BEEN MASKED OUT THE 
PROGRAM WILL GO BACK INTO THE FAILING CELLS AND VERIFY THAT 
THESE BAD CELLS HAVE BEEN MASKED OUT. 
THE OPERATOR WILL BE NOTIFIED OF ANY ERROR CONDITIONS WHICH 
MIGHT OCCURE DURING THE EXECUTION OF THE PROGRAM, ADDITIONAL 
INFORMATION PERTAINING TO THESE ERROR MESSAGES CAN BE FOUND 
IN SECTION 3.0 OF THIS DOCUMENT. 
THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 
1.2 SYSTEM REQUIREMENTS 


1. somes CENTRAL PROCESSOR WITH A MINIMUM OF 28K USABLE MAIN 


2. CONSOLE TERMINAL. 
3. RH17 OR RH70 DISK CONTROLLER. 


4. A MINIMUM OF ONE ML-11 SYSTEM ATTACHED TO THE ABOVE 
RH CONTROLLER. 


5. XDP+ LOAD MEDIA. 


1.3 RELATED DOCUMENTS AND STANDARDS 
1. SUPPRGC.DOC 

SUP INT .MEM 

SUPF UN. C 

XXDPPLUS .DOC 

BLISS LANGUAGE GUIDE 

BLISS-16 USER'S GUIDE 
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1.4 DIAGNOSTIC HIERARCY PREREQUISITES 


IT WILL BE ASSUMED THAT PRIOR TO RUNNING OF THIS PROGRAM 
THAT ALL APPROPRIATE CPU, MAIN MEMORY, ML~11 LOGIC TEST 

AND ML=11 SYSTEM EXERCISER HAS BEEN SUCCESSFULLY RUN ON 

THE ML-11 SYSTEM AND THAT THE SYSTEM EXERCISER SPECIFICALLY 
CALLS OUT THE RUNNING OF THIS PROGRAM. 


ne ee 


SEQ 0003 





E 
THE SYSTEM EXERCISER WHEN IT CALLS FOR THE RUNNING OF THIS 
PROGRAM WILL INDICATE WHICH ARRAYS AND BANKS OF THE ML~11 
SYSTEM NEED TO BE PROM MAINTENANCED. THIS INFORMATION 
SHOULD BE THEN INPUTED INTO THIS PROGRAM. 


HOWEVER THIS PROGRAM IS DESIGNED TO GIVE THE 
OPERATOR THE OPTION TO PROM MAINTENANCE EITHER 
THE ARRAY AND BANK THAT THE SYSTEM EXERCISER 
CALLS OUT FOR PM'ING OR SELECT PROM MAINTENANCE 
FOR AN ENTIRE ARRAY MODULE (FOUR BANKS) OR 
SELECT PROM MAINTENANCE FOR THE ENTIRE ML~11 
SYSTEM (ALL PRESENT ARRAY MODULES). 


1.5 ASSUMPTIONS 
2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP* USER'S MANUAL (CHQUS). 


* 
2.1 COMMAND S 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONT INUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
vOU MAY, FOR EXAMPLE, TYPE ‘'STA’’ INSTEAD OF ‘'START’’. 


THIS PROGRAM USES THE DIAGNOSTIC RUN TIME SERVICE FOR PROGRAM 
PARAMETER INPUT, ERROR REPORTING AND MESSAGE PRINTING. 


IT IS DESINGED TO TEST ONE ML~11 SYSTEM AND IS EXPECTED TO RUN 
FROM START TO FINISH WITH NO OPERATOR INTERRUPTIONS (ie. “C). 


THEREFOR THE ONLY RECOGNIZED DRS> COMMAND BY THIS PROGRAM IS 

THE ‘START’ COMMAND AND CONTROL C AND ANY OTHER DRS> COMMAND 

MUST BE AVOIDED. 

2.2 SWITCHES 

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 


SEG 0004 


-, 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 


SwITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 


IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY ‘DDDDD"’. 


SWITCH EFFECT 

/TESTS:LIST EXECUTE ONLY THOSE TESTS a IN 
THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE = /TESTS:1:5:7=10, 
THIS LIST WILL CAUSE TESTS 1,5, 7,8,9,10 10 
BE RUN. ALL OTHER TESTS WILL NOT BE RUN. 

/PASS:DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 10 64000) 

/FLAGS:FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 
IN SECTION 2.3. 

/EQP:DDDDD . REPORT END OF PASS MESSAGE AFTER EVERY 
DDDDD PASSES ONLY. (DDDDD = _1 TO 64000) 

/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 


IN THE LIST. LIST EXAMPLE = /UNITS:0:5:10=12 
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS: 1=5/PASS: 1000/EOP: 100 


THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL BE TESTED 1000 TIMES AND 3) THE END OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED By THE FIRST THREE “Pope! |. YOU MAY, 
FOR EXAMPLE, TYPE ''/TES:1-5°* INSTEAD OF ''/TESTS:1-5"'. 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY FACH 
COMMAND . 


TESTS PASS FLAGS EOP UNITS 

START x K x 
RESTART xX x x 
CONTINUE x X 
x 


TO TEST ONE ML-1 


AS MENTIONED BEFORE THE PROGRAM IS DES D 
T O FINISH WITH NO 


SYSTEM AND IS EXPECTED TO RUN FROM STA 
OPERATOR INTERRUPTIONS. 


THEREFOR USAGE OF ANY SWITCHES WOULD PROVE MEANINGLESS TO 
THE PROGRAM AND SHOULD BE AVOIDED. 


I GNE 
ART T 


2.3 FLAGS | 
FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 


SEQ 0005 


G 1 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 
ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 


NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 


CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR = CONTROL IS RETURNED 10 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER® INHIBIT ALL ERROR REPORTS 

IBRe INHIBIT ALL ERROR REFORTS EXCEPT 


FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


IXR® INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE BELL’ ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

I'S® INHIBIT STATISTICAL REPORTS (DOES NOT 


APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 


STATISTICAL REPORTING) 
IDR INHIBIT PROGRAM DROPPING OF UNITS 
ADR EXECUTE AUTODROP CODE 
LOT LOOP ON TEST 
EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH 


HAVE EVALUATION SUPPORT) 
*ERROR MFSSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A ‘BELL’ ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/* LAGS :LOE : IER:BOE 


AS MENTIONED BEFORE THIS PROGRAM IS DESIGNED TO TEST ONE ML~11 
AND IS EXPECTED TO RUN FROM START TO FINISH WITH NO OPERATOR 
INTERRUPTIONS. 


THEREFOR USAGE OF ANY FLAGS WOULD PROVE MEANINGLESS TO THIS 
PROGRAM AND SHOULD BE AVOIDED. 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING ‘‘CHANGE HW (L) 2°’ 
vYOU MUST ANSWER ‘'Y'’ AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN *PRELOADED'’ USING THE SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDP+ USER'S L). WHEN YOU ANSWER THIS 
QUESTION WITH A ‘’Y’', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). ONLY ONE DRIVE IS PERMITTED TO BE PROM 
MAINTENANCED PER EXECUTION OF THE PROGRAM THEREFOR ANSWER THIS 


SEQ 0006 


QUESTION WITH "1°, YOU WILL THEN BE ASKED THE FOLLOWING 
QUESTIONS. 


OPTION 1 "IS ENTIRE Mi-11 SYSTEM TO BE MASKED" 
TRANSFER “SYS* IF TRUE 


OPTION 2 ‘IS A SINGLE ARRAY TO BE MASKED’ 
TRANSFER “BCARD* IS TRUE 


OPTION 3 ‘IS A SINGLE BANK TO BE MASKED" 
TRANSFER ‘DONE’ IF FALSE 


"ENTER BANK NUMBER TO BE MASKED" 
*BOARD * ‘ENTER BOARD NUMBER TO BE MASKED" 
"Svs" "STARTING RH REGISTER ADDRESS" 

"DRIVE UNDER TEST NUMBER’ 
* DONE * "ARE YOUR INPUTED PARAMETERS CORRECT" 
c.5 SOFTWARE QUESTIONS 


SOF TWARE QUESTIONS ARE NOT USED DURING THIS PROGRAM AND THIS 
QUESTION SHOULD BE ANSWERED WITH A "NO" RESPONCE. 


HOWEVER IF A YES RESPONCE IS GIVEN THE FOLLOWING MESSAGE WILL 
BE PRINTED: 


"NOT USED TYPE <CR>* 


2.6 EXTENDED P-TABLE DIALOGUE 
TRADITIONALLY DRS> PROVIDES YOU WITH THE ABILITY TO 
BUILD P=TABLES FO MULTIPLE DRIVE TESTING. BECAUSE OF THE 
IMPACT OF THIS PROGRAM ON A ML-11 SYSTEM AND THE LENGTHY 
RUNTIME ONLY ONE DRIVE WILL BE PROM MAINTENANCED PER 
EXECUTION OF THIS PROGRAM. 
HOWEVER THE NATURE OF DRS> WILL STILL ALLOW YOU TO BUILD 
MULTIPLE DRIVE SELECTION FOR TESTING. THIS PROGRAM WILL 
TREAT THIS AS A SYSTEM ERROR AND SELECT THE FIRST P-TABLE 
BUILT FOR THE RUN TIME PARAMETERS. 
2.7 START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 

1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ (IF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE 'R CZMLCA™ 


4. TYPE ‘’START"' 


SEQ 0007 


THE START COMMAND WILL BE THE ONLY COMMAND 

ACCEPTED BY THIS PROGRAM AND TYPING ANY OTHER 
COMMAND MUST BE AVOIDED. FOR TESTING MULTIPLE 
DRIVES REPEAT STEPS 4 THRU 7 FOR EACH DRIVE. 


5S. ANSWER THE ‘'CHANGE HW'" QUESTION WITH ‘'Y"’ 
6. ANSWER ALL THE HARDWARE QUESTIONS 
7. ANSWER THE ‘"CHANGE Sw'' QUESTION WITH ‘N"’ 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE ‘‘IER*' FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


»wHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR NUMBER 
UNIT NUMBER = 0 - N (N_IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 

THE ""IER'' OR ‘‘IBR'' FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 

ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 

SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE “‘IER'', “‘IBR'' OR ‘'IXR'' FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 


ERROR NUMBER ERROR DESCRIPTION 


FRR_1 ONLY THE DRS> START COMMAND IS RECOGNIZED 
TO START THE PROGRAM EXECUTION. 


ANY OTHER DRS> COMMAND WILL CAUSE THIS ERROR 
ERR_2 DURING THE HARDWARE QUESTIONS THE OPERATOR 


IS ASKED IF A SINGLE BANK, A SINGLE ARRAY 
OR THE ENTIRE Mi-11 SYSTEM IS 10 BE PROM 


SEC 0008 


ERR_4 


FRR_S 


FRR_6 


ERR_?7 


MAINTENANCED. 
HE/SHE IS THEN ASKED IF HIS/HER INPUTS ARE 
CORRECT. 


THIS ERROR DETECTS A NO ANSWER FOR SELECTING 
SYSTEM, ARRAY OR BANK AND A YES ANSWER TO ‘ARE 
YOUR INPUTED PARAMETERS CORRECT’. 


EVEN THOUGH DRS> WILL BUILD MULTIPLE P-TABLES 
THIS PROGRAM WILL USE AS ITS RUN TIME PARAMETERS 
THE LUN 0'S ENTRIES. 


THIS ERROR DETECTS THE ABSENCE OF THIS FIRST 
P=TABLE "LUN 0°. 


THIS ERROR DETECTS UNCONFIRMED FAILING CHIPS. 


je. CHIPS THAT FAILED DURING MASS BUS WRITE 

CHECK TRANSFERS BUT THE FAILURE DID NOT REOCCURE 
DURING DATA DIAGNOSTIC MODES. THIS MAY INDICATE 
THAT THIS FAILURE MAY BE A SOFT ERROR OR POSSIBLE 
HARDWARE ERRORS. 


CONDITION A 


THIS INDICATES THAT ‘ONE' ALL BAD CHIP (GREATER 
THAN 10 ALL BAD ROWS AND OR COLUMNS) HAS BEEN 
DETECTED IN A CHIP AT A GIVEN BANK. 


THIS CHIP IS NOT PROM MAINTENANCED AND THE ERROR 
CORRECTION IS EXPECTED TO CORRECT THE FAILING DATA 
FROM THIS CHIP UNTIL FIELD SERVICE CAN REPLACE 

THE ARRAY FROM WHICH THIS CHIP RESIDES. 


CONDITION B 


THIS INDICATES THAT A SECOND ALL BAD CHIP HAS 
BEEN DETECTED IN A GIVEN BANK. 


THE BAD CHIP IS NOT PROM MAINTENANCED AND FURTHER 
TESTING OF THIS ARRAY IS ABORTED. 


FIELD SERVICE SHOULD REPLACE THIS ARRAY BEFORE 
LEAVING THE SITE. 


CONDITION C 


INDICATES THAT BAD NIBBLE OFFSETS HAS EXCEEDED 
14 OFFSETS RESULTING IN UNSAFE ERRORS. 


THE ARRAYS NIBBLE OFFSETS FOR THIS BANK ARE MASKED 
UP TO 14 OFFSETS. THE ERROR CORRECTION IS EXPECTED 
re ees THE UNMASKED ERRORS WHICH WERE LEFT 


FIELD SERVICE SHOULD REPLACE THIS ARRAY MODULE 
AT THE EARLIEST POSSIBLE DATA. 


SEQ 0009 


ERR_B 


ERR_9 


FRR_10 


ERR_11 


ERR_12 


CONDITION D 
THIS INDICATES THAT PROM BLAST ERRORS WERE DETECTED. 
THIS MEANS THAT THE SELECTED NEW PROM DATA WAS NOT 


WRITTEN INTO THE PROMS CORRECTLY. EITHER THE 
SELECTED PROM LOCATIONS WERE NOT WRITTEN CORRECTLY 


OR OTHER PROM LOCATIONS WERE INADVERTENTLY WRITTEN INTO. 


THIS COULD RESULT IN EITHER BAD LOCATIONS 
SY BEING MASKED OR GOOD LOCATIONS ARE BEING 


LATER ROUTINES WILL DETERMINE IF THIS SITUATION 
WARRENTS THE ARRAY TO BE REPLACED. 


AS MENTIONED BEFORE ONLY THE FIRST P=-TABLE BUILT 
WILL BE USED AS THE PROGRAM PARAMETERS. 


THIS ERROR DETECTS GREATER THAN ONE P=-TABLE 
WAS BUILT DURING THE HARDWARE QUESTIONS. 


DURING WRITING NEW PROM DATA TO THE PROMS THE 
DATA CLOCK BIT LOCATED ON THE ARRAY DATA MODULE 
1S TESTED FOR COMPLETION OF THE PROM WRITE. 


THIS ERROR DETECTS THE FAILURE OF THIS BIT TO 
CLEAR AFTER WRITING TO THE PROMS. 


AFTER THE PROMS HAVE BEEN WRITTEN WITH NEW PROM 
DATA THE PROGRAM VERIFIES THAT ALL NEWLY FAILING 
CHIPS HAVE BEEN SUCCESSFULLY MASKED OUT. 


THIS ERROR DETECTS THE OCCURANCE OF UNCORRECTABLE 
ERROR DURING THIS VERIFY PASS. 


THIS ERROR CAN NOT BE TOLERATED AND THE ARRAY IS 
CALLED OUT FOR REPLACEMENT. 


FIELD SERVICE MUST REPLACE THIS ARRAY MODULE 
BEFORE LEAVING THE SITE. 


IF THIS ERROR STILL EXITS AFTER THE ay Is 
REPLACED THEN POSSIBLE HARDWARE ERRORS 

EXITS IN THE DRIVE. THE LOGIC TEST AND MEXERCISER 
SHOULD BE RUN AGAIN. 


AGAIN DURING THE VERIFY PASS THE DRIVE IS EXAMINED 
FOR ERRORS AFTER BLASTING. 


SINGLE BIT ERRORS ARE TOLERATED IN BANKS WHICH 

ARE RUNNING DEGRADE MODE (EITHER ONE ALL BAD CHIP 
WAS LEFT BEHIND OR NIBBLE OFFSETS GREATER THAN 
WERE DETECTED). HOWEVER NON ~ DEGRADE MODE BANKS 
SHOULD BE RUNNING ERROR FREE AFTER BLASTING. 


THIS ERROR DETECTS THE OCCURANCE OF SINGLE BITS 
IN THE BANKS WHICH ARE NOT IN DEGRADE MODE. 


THIS COULD INDICATE THAT THE PROGRAM FAILED TO 


SEQ 0010 


. 4 
TO FIND AND MASK OUT ADDITIONAL ERROR_IN THE BANK 
OR THAT POSSIBLE HARDWARE ERRORS EXIST. 


THE PROGRAM SHOULD BE RUN ON THIS BANK AGAIN. 
IF THE ERROR STILL EXISTS THEN ISOLATE WHERE 
THE PROBLEM LIES. IF THIS PROGRAM IS SUSPECTED 
THEN CONTACT DIAGNOSTIC ENGINGERING. 


FRR_13 THIS ERROR DETECTS THE PRESENTS OF UNEXPECTED 
DRIVE ERRORS DURING OR AFTER A MASS BUS_TRANS- 
FER. ATER THE A MESSAGE IS PRINTED STATING THE ERROR 
ALL THE DIRECTLY READ ML~-11 REGISTERS ARE DUMPED 
TO THE TERMINAL. 


4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 


THIS PROGRAM WILL BE EXECUTED ONE TIME PER 'START' COMMAND ISSUED. 
THE DRS> REPORT OF HOW MANY OF ERRORS DETECTED HAS NO MEANING DURING 
EXECUTION OF THIS PROGRAM. 
ONCE THE PROGRAM EXECUTION HAS COMPLETED THIS JUST PM°ED UNIT IS 
oy TO SUPPRESS FURTHER PROGRAM EXECUTION AND CONTROL IS PASSED 

>. 
DROPPING OF A UNIT RESULTS IN A DRS> MESSAGE OF ‘PASS ABORTED FOR 
THIS UNIT". THIS MESSAGE HAS NO SIGNIFICANCE ON THE PROGRAMS 
EXECUTION AND SHOULD BE IGNORED. 
5.0 DEVICE INFORMATION TABLES 

HARDWARE P-TABLE ENTRY DEF INTITION 

TABLE LOCATION DESCRIPTION 


1, A_HWTBL : INITIAL(O) STORES A TRUE OR FALSE VALUE AND 
HAS NO DEFAULT VALUE. 


SELECTS WHETHER THE ENTIRE ML-11 SYSTEM 
(ALL PRESENT ARRAYS) ARE TO BE PM'ED. 


2. B_HWTBL : INITIAL(O) STORES A TRUE OR FALSE VALUE AND 
HAS NO DEFAULT VALUE. 


SELECTS WHETHER A SINGLE ARRAY MODULE 
IS TO BE PM'ED. 


3. C_HWTBL : INITIAL (O, STORES A TRUE OR FALSE VALUE AND 
HAS NO DEFAULT VALUE. 


SELECTS WHETHER A SINGLE BANK IS TO 


BE PM*ED 
4. DL HWTBL : INITIAL(O) STORES THE SELECTED BANK NUMBER TO 
BE PM'ED IF PM'ING SINGLE BANKS. 


SEQ 0011 


a 


5. 


De 


NS 


8. 


9. 


E_HWTBL : 


F _4WTBL : 


G_HWTBL 


H_HWTBL : 


I HwTBL 


INITIAL (O) 


INITIAL (176400) 


: INITIAL(O) 


INITIAL (0) 


: INITIAL (TRUE) 


THERE IS NO DEFAULT VALUE. 


STORES THE gpl ARRAY MODULE TO 
BE PM‘ED IF PM'ING SINGLE ARRAYS. 


THERE IS NO DEFAULT VALUE. 


STORES THE RH CONTROLLER BASE REGISTER 
ADDRESS. 


THE DEFAULT ADDRESS IS %0°176400'. 


STORES THE DRIVE SCLECTION NUMBER 
OF THE SELECTED DRIVE TO BE PM'ED. 


THERE IS NO DEFAULT VALUE. 


STORES THE DRIVE OPTION CODE FOR THE 
SELECTED DRIVE. 


CODE 1 = 16K MOS RAMS 
CODE 2 = 64K MOS RAMS 


STORES A TRUE OF FALSE VALUE. 
THIS FORCES THE OPERATOR TO REVIEW 


HIS/HER PARAMETER INPUTS FOR CORRECTNESS 


BEFORE PERFORMING PROM MAINTENANCE. 
THE DEFAULT VALUE IS TRUE. 


6.0 PROM MAINTENANCE TABLE REPRESENTATIONS 


ERROR MAP 


THE ERROR MAP IS A BLOCK VECTOR OF 512 BLOCKS. 
THESE BLOCKS RERESENT THE SECTORS IN A CHIP. 

EACH BLOCK HAS 8 WORDS. 
THE WORDS REPRESENT ROW ADDRESSES 0 TO 127. 


THE ADJACENT COLUMN ADDRESS FOR EACH ROW ADDRESS 
CAN BE CALCULATED “ ADDING THE ROW ADDRESS TO THE 
ROWS SECTOR NUMBER 


THESE BIT POSITIONS IN 


ERROR_MAP 
I I 
I ROWS 0-127 I 
! SECTOR 0 
1" I 
Paley cRRRe aap ee i 
ROWS 0-127 SECTOR 1 
I ] 


SEQ 0012 


N 1 
SEQ 0013 
SECTOR 511 OR 127 


BLAST TABLE 


THE BLAST TABLE IS A BLOCK VECTOR OF FOUR BLOCKS. 
EACH BLOCK REPRESENTS A PROMS BANK 0 TO 3. 

EACH BLOCK HAS 512 WORDS. EACH BLOCK IS FURTHER 
DIVIDED INTO TWO SECTIONS. THE UPPER SECTION REPRESENTS 
ROW PROM DATA 0 TO 127 (OR 0 TO 256 IF 64K CHIPS) 

AND THE LOWER SECTION COLUMN PROM DATA 0 10 127 

‘OR O TO 256 IF 64K CHIPS). 


BLAST TABLE 

[ooeeeena--------------- I 

I i 

ROWS ADRS I 
psa seerean 1 BANK 0 ' 
I COLS ADRS I 

I I 

| ----------------------- I 

I I 

ROWS ADRS 
pag Ole cepa I BANK 1 
I COLS ADRS I 

I I 

| ----------------------- I 

I I 

ROWS ADRS 

ae (ee orem 1 BANK 2 
I COLS ADRS I 

I I 
[------------- ---------- I 

I I 

ROWS ADRS 
aes ~—nannnn| BAK 5 
1 COLS ADRS I 

! ! 





THE BLAST TABLE IS LOADED WITH Tit NEW PROM DATA TO MASK 
OUT THE NEWLY FAILING ROWS AND COLUMNS AND IS ALSO LOADED WITH 
T#t OLD PROM DATA FROM PREVIOUS PROM BLASTING. 


TEMP BLAST TABLE 


aetce eee 


B 2 
THE TEMP BLAST TABLE IS A BLOCK OF 10 WORDS. IN EACH WORD 
1S STORED A BAD ROW OR COLUMNS RESPECTIVE NIBBLE NUMBER, 
ITS ROW OR COLUMN NUMBER AND A FLAG TO TELL WHETHER THIS 
TABLE ENTRY IS A ROW ADRS OR A COLUMN ADRS. 


BITS 15 12 10 4 3 10 0 
i I I ! I 
I RC I I R_C_NUMBER I NIBBLE NUM I ENTRY 0 
] I ] ] I 
‘etn ymca ma mem amamaaaaaaumarmmamammancaaiataedaa I 
I ] I I I 
I I ] ] I ENTRY 1 
I I I I I 
‘=e ‘eee enemas eanaeieenl ] 
I I ] I I 
] I I I I ENTRY XX 
I I ] I 
I I I 


TABLES USED IN CALCULATING SELECTED ROWS AND COLUMNS 
FOR BLASTING. 


COLUMN COUNT TABLE 
THIS TABLE KEEPS A COUNT OF THE NUMBER OF TIMES THE 
COLUMNS FAILS WITH A PARTICULAR FAILING ROW. 


ROW COUNT 

THIS SINGLE VARIABLE COUNTS HOW MANY TIMES A ROW 

NUMBER IS FOUND BAD WHEN SEARCHING THE ERROR MAP. 

EACH TIME A ROW IS FOUND BAD THE COUNT IS INCREMENTED. 

IF THIS COUNT GETS > 10 THEN THIS ROW IS CALLED ALL 

BAD AND IS SELECTED FOR BLASTING. WHEN THIS HAPPENS 

THE COUNTS OF THE ADJACENT FAILING COLUMN _IS DECREMENTED 
BY ONE. THE COLUMN POINTER TABLE POINTS TO THESE ADJACENT 
FAILING COLUMN COUNTS. 


IF THE ROW COUNT DOES NOT REACH > 10 AFTER SEARCHING THRU 
THE ERROR MAP THEN THIS ROW IS NOT SELECTED FOR BLASTING 
AT THIS TIME AND THE ADJACENT FAILING COLUMN COUNTS ARE 
NOT DECREMENTED. 


THE ERROR MAP IS THEN SEARCHED AT THE NEXT ROW NUMBER. 
COLUMN POINTER TABLE 

AS MSNTIONED BEFORE THIS TABLE POINTS TO THE ADJACENT 

FAILZNG COLUMN NUMBERS WHICH FAILED WITH THE ROW SEARCH. 


REMAINDER TABLE 
THE PROGRAM EXECUTION WILL FIRST SEARCH THE ERROR MAP FOR ROWS 


SEQ 0014 


C 2 
WITH GREATER THAN 10 COUNTS AND THE ADJACENT FAILING COLUMNS 
COUNTS ARE INCREMENTED. NOW ONCE THE ERROR MAP HAS BEEN SEARCH FOR 
ROWS COUNTS > 10 THEN COLUMN COUNT TABLE IS SEARCHED FOR COLUMN 
COUNTS > 10. JF A COLUMN COUNT IS > 10 THEN THIS COLUMN NUMBER 
IS SELECTED FOR BLASTING AND ITS COUNT IS ZEROED. 


ALL THAT IS LEFT NOW ARE RANDOM FAILING ROWS AND COLUMNS 
SCATTERED THROUGH THE CHIP. THESE SCATTERED ROW COLUMN 
PAIRS ARE TRANSFERED INTO THE REMAINDER TABLE WHERE THEY 
CAN BE INTERIGATED AND SELECTED FOR BLASTING. 


COLUMN COUNT 
TABLE 
[------- I 
: cot 0 REMAINDER TABLE 
I 1 coi 1 |--------------- | --------------- 
ROW ADRS COL ADRS I 
I I COL 2 i ] I 
Peers eae I | --------------- | --------------- I 
I I COL 3 I I I 
]------- I | --------------- ]--------------- I 
] I COL 4 ] I I 
[eeee--- I | --------------- |--------------- I 
I I COL 5 
]------- I 
I I COL 6 
]------- I 
I I cOL 7 
|------- I 
I I cOL 8 
[------- I 
I I COL 9 
]------- I 
I I COL 10 
[------- I 
I I cOL 11 
]------- I 
I I COL ¥x 
[------- I 
ROW COUNT 

| ------------- I 

I ] 

| ------------- I 


[------------- I 
| POINTER 0 
| POINTER 1 
; POINTER 2 


SEQ 0015 


| 
| 
| 
)% 
ELUDOM 


I I PCINTER 3 
I POINTER XX 


BAD CHIP TABLE 
THE BAD CHIP TABLE STORES AWAY THE FAILING CHIPS 
DISCOVERED BAD IN A BANK DURING WRITE CHECK TRANSFERS 
AND DURING SINGLE STEP DMA MODES. THE FAILING DATA PATTERN 
FOR EACH CHIP IS ALSO STORED. 


THIS TABLE IS A BLOCK OF 39 BYTES AND THE BIT DEFINITIONS ARE 
AS FOLLOWS: 


IS A FAULT INDICATOR 

INDICATES ZEROES DATA FAILURE 
INDICATES ONES DATA FAILURE 
INDICATES RANDOM DATA 0 FAILURE 
INDICATES RANDOM DATA 1 FAILURE 
INDICATES RANDOM DATA 2 FAILURE 
INDICATES RANDOM DATA 3 FAILURE 
INDICATES RANDOM DATA 4 FAILURE 
INDICATES RANDOM DATA 5 FAILURE 


BAD CHIP TABLE 


O—NWEUOA NO 


CHIP 0 
CHIP 1 
CHIP 2 
CHIP 3 
CHIP 4 
CHIP 5 
CHIP XX 
CHIP 38 


7.0 TEST SUMMARIES 


THIS PROM MAINTENANCE PROGRAM CONTAINS ONLY ONE TEST. -THIS ONE 
TEST IS THE MAIN CONTROL LOOP WHICH LOOPS THE PROGRAM EXECUTION 
ON THE SELECTED ARRAYS AND BANKS FOR PROM MAINTENANCE. 


SEQ 0016 


E 2 
BSKEL2 21-Apr-1981 08:27:48 TOPS=20 Bliss-16 V2(212) Page 
REV A PATCH 00 21-Apr-1981 08:15:46 PA:<NEALE>PMSKL2.BLI.1 (1) ) SEQ 0017 


0001 MODULE BSKEL2 ( IDENT = ‘REV A PATCH 90") = 
BEGIN 


0003 REQUIRE 'BLSMAC.REQ'; 
1493 %SBTTL ‘PROGRAM HEADER’ 


1 


LITERAL 
1497 DS$NBR_OF_TESTS = 1; 


. Se Ge Oe © er. ee. Seer 
— 
2 


1301 0 3 et 

: THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
1ey7 : THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
1505 )% 


EQUALS; 
POINTER (ALL); 
HEADER (%ASCII"CZMLCA', %ASCII*°A', ZASCII'0",120,0,PRI00); 


AADNO 
> 
uw 
Oo 
Nm 


vw 
oO 
N 


MANAG 
ed ad ed I I OE 


WRI OVO NAUEWN OO ODONAUS WIM O00 


%SBITL ‘DISPATCH TABLE' 
x( 


p++ 

; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
: IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 

3% 

DISPATCH (DS$NBR_OF_TESTS); 


DOADOIAND 


Be Oe Be Be Be Be Se Te Be Be Be Se Te Se Fe Se Be Se Ge HH . . . . . . . . . . . . 


ERRTBL; 


WIWWWWRINPINMINPNNMNMNN eS 


%SBTTL ‘DEFAULT HARDWARE P-TABLE’ 
%( 


A fh 
3 THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
3 THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 


RAK 


IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 
; AND IS USED AS A ‘TEMPLATE’ FOR BUILDING THE P-TABLES. 


. 
ye a a a as ss ss SS St St ST SS 


DYDD VD SVDV SVD PVT ST AV ST STD AIST TUT UT UT 


DIIDININO 
BWW 
—Ooo0n 


F 2 
BSKEL2 21-Apr-1981 08:27:48 TOPS=20 Bliss=-16 V2¢ “ 2) Page 2 
REV A PATCH 00 DEFAULT HARDWARE ©=TABLE 21-Apr=1981 08:15:46 PA: <NEALE>PMSKL2.BLI (1) SEQ 0018 
C 1842 ;=- | 
15 % 
1545 BGNHW (DFPTBL); 


1547 Gt OBAL 

'MASK ENTIRE SYSTEM FLAG INDICATOR 

'MASK A SINGLE ARRAY FLAG INDICATOR 
'MASK A SINGLE BANK _ INDI CATORG 


D 
iARRAY NO. TO BE MASKED 
176400"), RH REGISTER BASE ADRS 
‘DRIVE SELECT NO. OF DRIVE TO MASKED 
‘OPTION, 1 = 16K MOS RAMS, 0 = 64K MOS RAM 
iPARAMETERS CORRECT INDICATOR 


os 
yw 
* 
oo 
> 
€ 
aT 
Ww 
as 


: INITIAL ¢ 
HWTBL : INITIAL ( 
HWTBL : INITJAL ¢ 
HWIBL : INITIAL ¢ 
HWIBL : INITIAL ( 
HWTt3b ( 
HWTBL ; 

1 


—? 

vw 
WMI 
uO 
mMoow 


: INITIAL 


LS 
an 


: INITIAL 
5 H_HWTBL : INITIAL 


0 
0 
0 
0 
0 
5 % 
5 0 
5 1 
3 I HWTBL : “INITIAL (1); 
5 
5 


) 
) 
) 
) 
) 
0 
de 
, 


ENDHW; 
8 %SBITL “SOFTWARE P-TABLE’ 


60 %¢( 

61 ++ 

62 ; THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE 

63 ; PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE 
64 ; SET UP A ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR 


A Ba HOWEVER THIS PROGRAM WILL NOT USE THIS GPTIONAL 
c o 


DADOAONOAININY 


THERE ARE NO SOFTWARE QUESTIONS USED 

DURING THIS PROGRAM. HOWEVER THIS 

SOFTWARE TABLE LOCATION IS PROVIDED 

IN THE EVENT OF A *YES* RESPONCE TO 

THE DRS> SOFTWARE QUESTION ‘Change Software’ 


1578 BGNSW (SFPTBL); 


j 
70! 
1573: 


GLOBAL 
1581 SWTBL$_RET : INITIAL (0); 'DUMMY ARGUMENT 
1583 ENDSwW; 


1587 %SBITL ‘PROTECTION TABLE’ 


1589 2% 

15890 ;¢¢ 

: THIS TABLE IS USED BY THE RUNTIME SERVICES 
1338 : TO PROTECT THE LOAD MEDIA, 


AAAI 
—_ 
wi 
oO 
2 


We Re Be Be Be Oe Oe Oe Oe Oe Oe Os Oe Oe Oe Oe Oe Os Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Os Oe Oe Oe Ge Oe Oe Oe Or Oe Oe Os Oe Oe Os Oe Oe SH SESH OH OS Oe Oy 


a 
— 


Se Be Se Oe Oe Se Be Ge Be SH Se Se Ss oe 


BSKEL2 
REY A PATCH 00 


PROTECTION TABLE 
% 
BGNPROT(=1,-1,°1); 


‘IST ARG = 
‘2ND ARG = 
!3RD ARG = 
ENDPROT; 
END 
ELUDOM 
132 115 
103 


G 2 
21-Apr-1981 08:27:4 
08:15:4 


8 
21-Apr-1981 6 


OFFSET INTO P=TABLE FOR CSR ADDRESS 
OFFSET INTO P=TABLE FOR MASSBUS ADDRESS 
OFFSET INTO P=TABLE FOR DRIVE NUMBER 


L$EXP4::. 


BSKEL2 
/REV A / 


SCODES 
/CZM/ 
/LCA/ 


TOPS=20 Bliss=16 V2(212) 
PA:<NEALE>PMSKL2.BLI.1 (1) 


Pa 3 
SEQ 0019 


rr 


BSKEL2 
REV A PATCH 00 PROTECTION TABLE 


000000 
176400 
000000 
000001 
000601 


000000C 
000000 
177777 


177777 
177777 


LSEXPS::. WORD 


L$AUT:: WORD 
L$DUT:: . WORD 
L$LUN:: WORD 
LSDESP::. WORD 
L$LOAD: : . WORD 
LSETP:: . 
L$ICP:: .WORD 
L$CCP:: .WORD 
L$ACP:: .WORD 
LSPRT:: 
LSTEST::. WORD 
LSDLY:: .WORD 
LSHIME::.WORD 
DSPCNT::.WORD 
LSDISPATCH:: 
WORD 


ERRTYP::.BLKW 
ERRNBR:: .BLKW 
ERRMSG: :.BLKW 
ERRBLK::.BLKW 
LSHWLEN:: 


WORD 
A.HWTBL:: 
. WORD 
B.HWTBL:: 
. WORD 
C.HWTBL:: 
. WORD 
D.HWTBL:: 
.~ WORD 
E.HWTBL:: 
. WORD 
F LHWITBL:: 
. WORD 
G.HWIBL:: 
. WORD 
H.HWIBL:: 
.~ WORD 
I.HWTBL:: 
. WORD 


LSNDHW: : .BLKW 
LSSWLEN:: 


. WORD 
SWTBL$.RET:: 
. WORD 
LONDSW: : .BLKW 
L$PROT::.WORD 
.~ WORD 
.~WORD 


21-Apr=19 
7 r= 
21-Apr-19 


oo CO 
per Seer 


<<LENDHW=L SHWLEN>/2> 
0 
0 
0 
0 
0 


-1400 
0 


1 
1 


<<L SND SW=L$SWLEN>/2> 


TOPS=20 Bliss=-16 V2(212) 
PA:<NEALE>PMSKL2.BLI.1 (1) 


Pa 
SEQ 0020 


4 


BSKEL2 
REV A PATCH 00 PROTECTION TABLE 


.GLOBL 
.GLOBL 
| .GLOBL 
! 
100000 BIT15== 
040000 BIT14== 
020000 BIT13== 
010000 BIT12== 
004000 BIT11== 
002000 BIT10== 
001000 BITO9== 
| 00 B1708== 
| 200 BITO7== 
000100 BIT06== 
| 0 BITOS== 
000020 BIT04== 
| 000010 BIT03== 
000004 BIT02== 
600002 BITO1== 
000001 BITO00== 
001000 BIT9== 
000400 BIT8== 
000200 BIT7== 
000100 BIT6== 
000040 BITS== 
000020 BIT4== 
000010 BIT3== 
000004 BIT2== 
000002 BIT1== 
000001 BITO== 
000040 EF .START== 
000037 EF .RESTART== 
000036 EF . CONT INUE== 
000035 EF .NEW== 
34 EF .PWR== 
000340 PRIO7== 
00 PR106== 
000240 PRIO5== 
000200 PRI04== 
000140 PRI03== 
000100 PRIO2== 
000040 PRI01== 
PRIO0== 
EVL== 
10 LOT== 
000020 ADR== 
000040 IDU== 
000100 1SR== 
000200 UAM== 


® 

oO 

m 
nu 


=. 
21-Apr-1981 08:27:48 
21-Apr-1981 08:15:46 


L$SOFT, TSPTHV, LSRPT, LSINIT 


LS$CLEAN, L$LAST, LSHARD, L$DVTYP 
LS$DESC, L$DU, L$AU, L$AUTO, T1 


-100000 


TOPS=20 Bliss-16 V2(212) 


PA: <NEALE>PMSKL2.BLI.1 


(1) 


Page 5 
SEQ 0021 


Memory Used: 29 pages 
Compilation Compete 


: Size: 0 code + 64 data words 
> Run Time: 00:04.2 
; Elapsed Time: 00:08.4 


rm 
oO 
mm 
' 
' 


LSERRTBL== 
$ 


L$DEPO== 
DFPTBL== 
SFPTBL== 


J 2 
21-Apr-1198 
21-Apr-198 


ERRTYP 
LSSWLEN+2 
LSHWLEN+2 
L$REV+1 
LEHWLEN+2 
LSSWLEN+2 


TOPS=20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL2.BLI.1 (1) 


Page 6 
SEQ 0022 


K 2 
21-Apr-19 


BSKEL3 81 08:28:04 TOPS=20 Bliss=16 V2(212) Page 1 
~ REV A PATCH 00 21-Apr-1981 08:17:20 PA:<NEALE>PMSKL3.BLI.1 (1) SEQ 0023 
0001 MODULE BSKEL3 (IDENT = "REV A PATCH 00") = 
0002 BEGIN 
0003 REQUIRE *BLSMAC.REQ'; 
1493 EQUALS; 
1494 %SBTTL ‘TYPE AND DESCRIPTION’ 
j 1495 
1496 
| 1497 
1498 
1s DEVTYP (%ASCIZ"ML-11 BLOCK MODE MEMORY SYS"); 
1501 
4 DESCRIPT (%ASCIZ"ML=11 ARRAY MAINT PROG'); 
1504 
1505 
eae X%SBTTL "HARDWARE PARAMETER CODING SECTION’ 
Cc 1508 %¢ 
C 1509 ;++ 
C 151 > THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
C 151 > THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
C 151 > MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
c i> : INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
C 15 > MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
Cc 15 : WITH THE OPERATOR. 
c i> i 
15 % 
15 
BGNHRD; 
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» 
° 
- 
° 
. 
* 
. 
e 
° 
. 
° 
. 
* 
. 
° 
. 
° 
. 
° 
. 
* 
. 
* 
. 
’ 


BIND | 
! DEFINE HARDWARE MESSAGES 


M_SYS = UPLIT(ZASCIZ'IS ENTIRE ML~11 SYSTEM TO BE MASKED"), 
M_ARR = UPLIT(%ASCIZ'IS A SINGLE ARRAY TO BE MASKED’), 

M_BNK = UPLIT(ZASCIZ'IS A SINGLE BANK TO BE MASKED"), 
M_BNK_NO = UPLIT(%ASCIZ‘ENTER BANK NO. TO BE MASKED"), 
M_BRD-NO = UPLIT(%ASCIZ*ENTER BOARD NO. TO BE MASKED"), 
M_RH_BASE = UPLIT(ZASCIZ'STARTING RH BASE REGISTER ADDRESS"), 
M_DUT = UPLIT(ZASCIZ'DUT DRIVE NUMBER'), 

M_OPTION = UPLIT(ZASCIZ'IS DRIVE OPTION AN ML11A") 


= 
mn] 
2 
P*] 
m 
Oo 
4 


= UPLIT(ZASCIZ*ARE YOUR INPUTED PARAMETERS CORRECT"); 


SELECT WHICH OPTION THE PROGRAM IS 

TO RUN UNDER. 
OPTION 1. PROM MAINT ENTIRE ML11 SYSTEM 
OPTION 2. PROM MAINT A SINGLE ARRAY 
OPTION 3. PROM MAINT A SINGLE BANK 


ASK AM I TO MASK AN ENTIRE SYSTEM ? 


QUIN ONO RRORD aaa 
WWW 
WRI O OO NO URW 0 ODONAURWNH HOO 


kk kk a a a a a I 
RAR 
Ww 


AANA AAIII V1 


SRW 
—Oo00n 





ee. 
21-Apr-19 


FORCE THE OPERATOR TO REVIEW HIS INPUTED 


' 
578 ' PARAMETERS FOR CORRECTNESS BY ASKING THE 
579 ! NEXT QUESTION. THE INIT CODE WILL ABORT 
580 ' THE PROGRAM EXECUTION IF HE RETURNS A NO 
583 ! RESPONCE 
582 : 
583 $L (DONE_HR 

4 CPRAL CM. CORRECT, %0'20°,1,YES,1); 


++ 
91 ; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 

92 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
93 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 


| BSKEL3 81 08:28:04 TOPS=20 Bliss-16 V2(212) Page 2 
REV A PATCH 00 HARDWARE PARAMETER CODING SECTION 21-Apr-1981 08:17:20  PA:<NEALE>PMSKL3.BLI.1 (1) SEQ 0024 
: 1542 GPRML (M_SYS,%0"0",1,NO,1); 

3 LF oh KFERT (DRV_ PRAM) ; 

: 1545 i ASK AM I TO MASK AN ENTIRE ARRAY ? 

: 1547 GPRML CM ARR,%0'2",1,NO,1); 

; 1548 XFERT (ENTER BOARD); 

: 1550 i ASK AM I TO MASK A SINGLE BANK ? 

: 1358 GPRML(M_BNK,%0°4*,1,NO, 1); 

: 1554 i INPUT TO THE PROGRAM THE SELECTED 

: 1355 i PROGRAM RUN TIME PARAMETERS. 

: 1357 KFERF (DONE_ HRD); 

: 1359 i ENTIRE BANK TO BE PROM MAINT 

: 1561 6p RMD (M_BNK_NO,%0'6",D,%0"7",0, ZDECIMAL'3",NO,1); 
; lect $L (ENTER BOARD) = 

: 1364 i ENTIRE BOARD TO BE PROM MAINT 

: 566 GPRMD(M BRD_NO,%0"10".D,%0'°77" 0, XDECIMAL "15" ,NO,1); 
; got $LCDRV_ PRAM); 

: 569 ENTIRE RH BASE ADDRESS | 

: 570 i ENTIRE DRIVE UNDER TES 

: 571 | ENTIRE DRIVE OPTION fax PARTS OR 64K PARTS 
: 573 GPRMA(M_RH_BASE,%0°12".0,0, 0" Vr" YES,1); 
: 574 GPRMD (M~DUT,%0°14',0, x0" 7° .NO,1): 

: 575 GPRML (M_ OPTION, %0" 16", bettie 





M 2 
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' BSKEL3 Page 3 
REV A PATCH 00 SOFTWARE PARAMETER CODING SECTION 21-Apr-1981 08:17:20 PA:<NEALE>PMSKL3.B8L!1.1 (1) ’ SEQ 0025 
; C 1594 ; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. _THE 
5 C 1595 ; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; C 1238 : WITH THE OPERATOR. HOWEVER THIS PROGRAM WILL NOT USE THIS SECTION. 
3 C _—- 

: 1598 )% 
3 1599 
; 1600 BGNSFT; 
; 1601 
: 1602 ! 
; 1603 ' DEFINE THE SOFTWARE MESSAGES 
; 1604 : 
3 1605 
: 1606 ‘ 
: Ho M_RET = UPLIT(%ASCIZ" NOT USED TYPE <CR>"); 
: sf ; INPUT THE SOFTWARE QUESTION TO THE PROGRAM 
. 1611 GPRML (M_RET,0,1,YES,1); 
; 1612 
3 1613 ENDSFT; 
: 1614 
4 iia %SRBTTL "REPORT CODING SECTION’ 
4 1617 
: 1618 
4 C 1619 
; C 1620 !+ 
: C 1621 |! THE REPORT CODING SECTION CONTAINS THE 
M4 3 168 ‘PRINTS'' CALLS THAT GENERATE STATISTICAL REPORTS. 
; 1624 )% 
; 1625 '! THIS SECTION ‘AUTO DROP’ IS NOT USED 
3 1626 |! DURING THIS PROGRAM 
= 1627 ! 
: 1628 BGNRPT; 
» 1629 RETURN; 
: 1630 ENDRPT; 
-TITLE ‘SKEL3 
.IDENT /REV A / 
000000 PSECT $CODE$S 
000000 115 114 055 L$DViYF:: 
eASCII /ML-/ 
000003 061 061 040 ASCII /11 / 
000006 102 114 117 -ASCII /BLO/ 
000011 103 113 040 ASCII] = /CK / 
000014 115 117 104 ASCII /MOD/ 
000017 105 040 115 ASCII /E M/ 
000022 105 115 117 eASCII] /EMO/ 


N 2 
| BSKEL3 21-Apr-1981 08:28:04 TOPS=20 Bliss=-16 V2(212) Page 4 
REV A PATCH 00 REPORT CODING SECTION 21-Apr-1981 08:17:20 PA:<NEALE>PMSKL3.BLI.1 (1) SEQ 0026 
131 040 ASCII /RY / 
131 123 ASCII /SYS/ 
-ASCII <00> 
BL 2 
114 055 LSDESC::.ASCII /ML=-/ 
061 040 eASCII /11 / 
122 122 eASCII /ARR/ 
131 040 eASCII /AY / 
101 111 ASCII /MAI/ 
124 040 -ASCII /Ni / 
122 117 -ASCII /PRO/ 
000 000 -ASCII /G/<00><00> 
LSHRDLN:: 
.WOR <<<LSNDHRD=LS$HRDLN>/2>=<1> 
GP$1 WORD 120 
. WORD M.SYS 
wO 1 
$DRV.PRAM 
. <<<<$LDRV.PRAM-$DRV.PRAM>*400>+4>+20> 
GP$2 -WORD 1120 
-WORD M.ARR 
.WOR 1 
SENTER.BOARD: 
.WOR <<<<$LENTER.BOARD-$SENTER.BOARD>*400>+4>+20> 
GP$3::  .WORD 2120 


RD — 


ee ee 
- WORD — 


-WORD 1004 
GP$5:: .WORD 4042 

-WORD M.BRD.NO 

.- WORD 77 

- WORD 0 

. WORD 17 
$LDRV.PRAM: 

-WORD 1004 
GP$6:: .WORD 5031 

-WORD M.RH.BASE 

. WORD 

-WORD -=1 
GP$7:: WORD 6022 

-WORD M.DUT 

-WORD 7 

-WORD 0 

WORD 77 


B 3 
| 
BSKEL3 21-Apr-1981 08:28:04 TOPS=20 Bliss=-16 V2(212) Page 5 
| REV A PATCH 00 REPORT CODING SECTION 21-Apr-1981 08:17:20 PA:<NEALE>PMSKL3.BLI.17 (1) SEQ 0027 
| 007120 GP$8:: .WORD 7120 
000320" ~WORD M.OPTION 
000001 -WORD 1 
001004 $LDONE.HRD: 
WORD 
010130 GP$9:: .WORD 10130 
000352" WORD M. CORRECT 
000001 -WORD 1 
LSNDHRD: : ‘ 
000000C LOSFTLN:: 
.WORD <<<L$NDSFT-LS$SFTLN>/2>-1> 
000130 GP$10:: .wORD 130 
000416' .WORD M.RET 
000001 a 1 
LSNDSFT:: 
~-BLKW 1 
.PSECT $PLIT$, D 
111 123 040 P.AAA: .ASCII /IS / 
105 116 124 ASCII /ENT/ 
111 122 105 eASCII /IRE/ 
040 115 114 ASCII / ML/ 
055 061 061 eASCII /=11/ 
040 123 131 -ASCII / SY/ 
123 124 105 ASCII /STE/ 
115 040 124 -ASCII /M T/ 
117 040 102 -ASCII /0 B/ 
105 040 115 ASCII /E M/ 
101 123 113 eASCII /ASK/ 
105 104 000 ASCII /ED/<00> 
111 123 040 P.AAB: .ASCII /IS / 
101 040 123 ASCII /A S/ 
111 116 107 ASCII /ING/ 
114 105 040 ASCII /LE / 
101 122 122 ASCII /ARR/ 
101 131 040 ASCII /AY / 
124 117 040 ASCII /TO / 
102 105 040 ASCII /BE / 
115 101 123 ASCII \‘MAS/ 
113 105 104 -ASCII /KED/ 
000 000 ASCII <00><00> 
111 123 040 P.AAC: .ASCII /IS / 
101 040 123 -ASCII /A S/ 
111 116 107 -ASCII /ING/ 
114 105 040 ASCII /LE / 
102 101 116 ASCII /BAN/ 
113 040 24 ASCII . #% Tf 
117 040 102 -ASCII /0 B/ 
105 040 115 eASCII /E M/ 
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21-Apr-19 


81 08:28:04 TOPS=20 Bliss-16 V2(212) Page 6 
21-Apr-1981 08:17:20 PA:<NEALE>PMSKL3.BLI.1 (1) SEQ 0028 
-ASCII /ASK/ 
ASCII /ED/<00> 
P.AAD: .ASCII /ENT/ 
eASCII /ER / 
-ASCII /BAN/ 
-ASCII /K N/ 
ASCII /0. / 
eASCII /T0 / 
ASCII /BE / 
-ASCII /MAS/ 
eASCII /KED/ 
-ASCII <O0> 
P.AAE: .ASCII /ENT/ 
ASCII /ER / 
-ASCII /BOA/ 
ASCE] /RD 7 
-ASCII /NO./ 
eASCII / TO/ 
-ASCII] / BE/ 
-ASCII / MA/ 
ASCII SKE/ 
ASCII /D/<00><00> 
P.AAF: .ASCII STA/ 
eASCII /RTI/ 
-ASCII /NG / 
-ASCII /RH / 
-ASCII /BAS/ 
ASCII /E R/ 
-ASCII /EGI/ 
-ASCII /STE/ 
eASCII /R A/ 
-ASCII /DDR/ 
eASCII /ESS/ 
eASCII <00> 
P.AAG: .ASCII /DUT/ 
-ASCII / DR/ 
eASCII /IVE/ 
eASCII / NU/ 
-ASCII /MBE/ 
ASCII /R/<00><00> 
P.AAH: .ASCII Is / 
-ASCII /DRI/ 
eASCII /VE / 
eASCII /OPT/ 
-ASCII /ION/ 
-ASCII / AN/ 
ASCII / ML/ 
eASCII = /11A/ 
-ASCII 00><00> 
P.AAI: .ASCII E/ 
eASCII / YO/ 
eASCII = /UR / 


D 3 
21-Apr-1981 


| BSKEL3 08:28:04  TOPS-20 Bliss=16 v2(212) Page 7 
| REV A PATCH 00 REPORT CODING SECTION 51-Apr-1981 08:17:20  PA:<NEALE>PMSKL3.BLI.1 (1) SEQ 0029 
000363111 116-120 “ASCII / INP/ ' 

000366 = 125C'si‘*d124—Sts«*d205 TASCII /UTE/ 
000371 106 040 120 “ASCII. /D_P/ 
000374 101 122 101 TASCII  /ARA/ 
000377, «115 si«*d105—'i (is 2G “ASCII /MET/ 
000402 105 122 ~ 123 “ASCII /ERS/ 
000405 040 103 #117 “ASCII /_CO/ 
000410 122 122 105 TASCII  /RRE/ 
000413 103 124 000 "ASCII. /CT/<00> 
000416 040 116 ~ #117 P.AAJ: lASCII /_NO/ 
000421 124 040 125 "ASCII. /T_U/ 
000424 123 105 104 “ASCII. /SED/ 
000427 040'si‘id1QGi(tsé«idST TASCII 7 TY/ 
000432 «120 «= 105.—s«(40 "ASCII /PE_/ 
0004 35 074 103 122 ASCII = /<CR/ 
000440 076 000 TASCII. />/<00> 
100000 BITi5== -100000 
40000 BIT14== 40000 
020000 BIT13== 20000 
010000 BIT12== 10000 
000 BIT11== 4000 
002000 BIT10== 2000 
1000 BITO9== 1000 
000400 BI T08== 400 
000200 BIT07== 200 
000100 BIT06== 100 
000040 BITO5S== 40 
000020 BIT04== 20 


@ 
Cd 
_ 
—NMWEUGA NWODDOOO 
Ti) | ewe eh 
! 


pun nnn a 
= 
oO 


eee 


200 PRI04== 
000140 PRI03== 
000100 PRIQ2== 
PRIO1== 
PRIOQ== 
000004 EVL== 
000010 LOT== 
000020 ADR== 
000040 1Du== 
000100 1SR== 
200 UAM== 
000400 BOE == 
001000 PNT== 
002000 PRI == 
000 IXE== 
010000 IBE== 
020000 IER== 
040000 LOE== 
00000 HOE == 
¢00070° L$SHARD== 
: M.SYS= 
0 4° M.ARR= 
104' M.BNK= 
000142" M.BNK .NO= 
000176' M.BRD.NO= 
000234* M.RH.BASE= 
000276' M.DUT= 
000320" M.OPTION= 
000352" M. CORRE CT= 
000214° L$SOF T== 
000416° M.RET= 
SBTTL 
PSECT 
000224 900207 LRPT: RTS 
; Routine Size: 1 word 
: Maximum stack depth per invocation: 0 words 
. SBTTL 
000226 004767 177772 L$RPT:: JSR 
104425 TRAP 
000234 000207 RTS 


; Routine Size: 4 words 
, Ra Tan SE EEN depth per invocation: 0 words 


: 2 
21-Apr-1198 
21-Apr-198 


> 
BE 


p 

p 

P. 

P.AAF 

p 

P 

P.AAI 

LSSFTLNe2 
AAJ 


LRPT REPORT CODING SECTION 
$CODES 


PC 


L$RPT REPORT CODING SECTION 
anid 


PC 


TOPS=20 Bliss-16 gt 


PA:<NEALE>PMSKL3.BLI.1 (1) 


Pa 8 
SEQ 0030 


1613 


1629 





BSKEL3 


ee 


K 
REY A PATCH 00 


SOO 
_—) 
o 
WN 
uw 


ANA 
— 
Oo 
WG 
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3 
oO 


000236 000207 


; Routine Size: 
; Maximum stack 


000240 004767 
000244 104461 
000246 000207 


; Routine Size: 
; Maximum stack 


AADOA9NND 
—_ 
o 
w 
wn 


, 3 
21-Apr-1981 08:28:04 


AUTODROP SECTION 21-Apr-1981 08:17:20 
Z%SBTTL “AUTODROP SECTION’ 

ae 

\¢ 


' THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF 
| THE "ADR'' FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO 
' SEE IF THEY WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY 

! DROPPED FROM TESTING. 


)% 


' THIS SECTION "AUTO DROP’ IS NOT USED 
| DURING THIS PROGRAM 
BGNAUTO; 
RE TURN; 
ENDAUTO; 
.SBTTL LAUTO AUTODROP SECTION 
LAUTO: RTS PC 


1 word 2 ; 
depth per invocation: 0 words 


SBTTL Ne * ences SECTION 


177772 L$AUTO::J5R PC, LAUTO 
TRAP —s-- 61 
RTS PC 


4 words _ / 
depth per invocation: 0 words 


%SBTTL “DROP UNIT SECTION® 
x( 
'¢ 


' THE DROP=UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
! TO NO LONGER BE TESTED. 


% 
! THIS SECTION ‘DROP UNIT* IS NOT USED 
! DURING THIS PROGRAM 


BGNDU; 
RE TURN; 


TOPS=20 Bliss=-16 V2(212) 
PA:<NEALE>PMSKL3.BLI.1 (1) 


Pa 9 
SEQ 0031 


1630 





G 3 
21-Apr-1981 08:28:04 TOPS=20 Biiss=16 v2(212) 


BSKEL3 Page 10 
REV A PATCH 00 DROP UNIT SECTION 21-Apr-1981 08:17:20 PA:<NEALE>PMSKL3.BL1.7 (1) SEQ 0032 
4 1664 ENDDU; 

.SBTTL LDU DROP UNIT SECTION 
000250 900207 LDU: RTS PC ; 1648 
: Routine Size: 1 word 
: Maximum stack depth per invocation: 0 words 

.SBTTL LDU DROP UNIT SECTION 
000252 004767 177772 L$DU:: JSR PC,LDU ; 1663 
000256 104453 TRAP 53 
000260 000207 RTS PC 


; Routine Size: 4 words _ ‘ 
: Maximum stack depth per invocation: 0 words 


; 1665 

3 1666 

3 1667 %SBITL ‘ADD UNIT SECTION’ 

; 1668 

; C 1669 %¢ 

5 C 1670 !+ 

4 C 1671 |! THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
; C 1672 ! TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
4 C 1673 |! TO THE TEST CYCLE. 

s C 1674 != 

: 1675 )% 

: 1676 |! THIS SECTION ‘ADD UNIT* IS NOT USED 

: 1677 ! DURING THIS PROGRAM 

1678 =! 

C 1679 BGNAU; 

4 1680 RETURN; 

2 : 1681 ENDAU; 


.SBTTL LAU ADD UNIT SECTION 
000262 000207 LAU: RTS PC : 1664 


; Routine Size: 1 word | : 
: Maximum stack depth per invocation: 0 words 


-SBTTL L$AU ADD UNIT SECTION 
000264 004767 177772 L$AU:: JSR PC,LAU : 1689 
000270 104452 TRAP 52 


BSKEL3 
| REV A PATCH 00 
000272 000207 


; Routine Size: 
; Maximum stack 


; 1682 
: 1683 
; 1685 
; 1686 


| 
| 
| 
Size: 
; Run Time: 
; Elapsed Time: 
; Memory Used: 


ADD UNIT SECTION 
RTS PC 


4 words 


depth per invocation: 0 words 


END 
ELUDOM 


20 code + 219 data words 
00:05.5 
00:09.5 
30 pages 


Compilation Complete 


H 3 
21-Apr-1981 08:28:04 
21-Apr-1981 08:17:20 


TOPS=20 Bliss=16 V2(212) 
PA:<NEALE>PMSKL3.BLI.17 (1) 


Page 


11 
SEQ 0033 


— BSKELS 
_ REV A PATCH 00 


23388 


8 
1509 


FAADADDDIADDDIDIADDIA|DIAIANAIADIANIANINANNANANN 
kk kk kk ek a od 8 so 
DPD PV DV VV SVT STA TST STAT SETI STU T 
WIWWWPINNNNININNIDNID 2 2 PP 2 eee 
WR |O O00 VAURBWN 0 OONAUEWWNO 


MODULE BSKELS ( IDENT = ‘REV A PATCH 90") 
BEGIN 
PRETTY BLF COMMANDS 


i <BLF /NOERROR> 
| <BLF /LOWERCASE_KEY> 


LIBRARY FILES 


i REQUIRE FILES 


require "BLSMAC.REQ'; 


%( 
DUE TO THE BLISS-16 COMPILER BLISS16 COMPILERS RESTRICTION OF 6 CHARACTERS PER UNIQUE VARIABLE NAME 


THE FOLLOWING ROUTINE SUBSCRIPTS ARE USED 


; ROUTINE SUBSCPIPTS 


1 ROUTINE NAME = INITIALIZE 
IN_ROUTINE NAME = INTERIGATE 

L ROUTINE NAME = LOAD 

DM_ ROUTINE NAME = DIAGNOSTIC MODE 
GEN_ROUTINE NAME = GENERATE 

FB ROUTINE NAME = FIND BAD 
CLR_ROUTINE NAME = CLEAR 

OFF ROUTINE NAME = OFFSETS 
MOV-ROUTINE NAME = MOVE 
CS_ROUTINE NAME = CHECK SUM 

PM ROUTINE NAME = PROM MAINTANENCE 
CAL_ROUTINE NAME = CALCULATE 

BL ROUTINE NAME = BLAST 


ver ROUTINE NAME 


= VERIFY 


ROUTINE NAME = SEARCH 


K “ROUTINE NAME = 
MISCELLANEOUS 


TRANSFER 
SUBSCRIPTS 


F _MISCELANEOUS NAME = FLAG 


ee 
21-Apr-19 


G0 00 
—_-— 


TOPS=20 Bliss-16 v2(212) 
PA:<NEALE>PMSKL4.BLI.1 (1) 


Page 
SEQ 0034 


BSKELS 
REV A PATCH 00 





Be Be Be Be Be Be Be Be Be Be Be Be Se Be Se Ge Fe Be He Se Be Be Oe FH He Be Se Se Ge He Se Oe 


1534 
1535 


ye ae ee et ek hn a hel 


ee kk kk ed a ed ds 
QR ARAMARAAAR RRR RRR RR ll 
DOUOWNAWU EWN $0 OONAUEWN-OOONO 


DAA D ASIII ES ES ES ES ES 


vi 


NNN NNNNN NV 
WR 9 DONAUESWN—O 


SES PSs a 


CONSTANT LITERAL DECLARATIONS 
Zsbttl "CONSTANT LITERAL DECLARATIONS 
: CONSTANT LITERAL DECLARATIONS 


Literal 

MASS BUS TRANSFER CODES 
FUNC_1 = %0'000001', 
FUNC-2 = %0'000011", 
FUNC_3 = %0'000031', 
FUNC4 = %0'000051", 
FUNC_5 = %0'000061", 
FUNC_6 = %0'000071", 

! DATA CONSTANTS 


ONES = %0°177777', 

ONE = %0'000001', 

ZEROES = %0°000000', 

ZERO = %0'000000". 

REGISTER ACCESS OFFSET INDEXES 


MLCS1 =_0, 


2 
e 
sen gone 


es = Ses 
. 


. 


= 
= 
Wn 
2 
hunnnnnnnninnnnn nn 
~ os SS 4 OOON 
NON OCONAUWUSWWR—Or 8 *& 


ERROR NUMBER CONSTANTS 


s 3 
21-Apr-1981 08:40:22 
21-Apr-1981 08:19:06 


TOPS=20 Bliss=16 V2(212) 
PA: <NEALE>PMSKL4.BL1.1 (2) 


!NOOP FUNCTION 

'DRIVE CLEAR FUNCTION 
‘SEARCH FUNCTION 
'WRITE CHECK FUNCTION 
'WRITE FUNCTION 

!READ FUNCTION 


'ALL ONES DATA FIELD 
'SINGLE ONE DATA FIELD 
'ALL ZEROES DATA FIE!D 
'ZERO DATA FIELD 


'ML_ADDR + %0'0" CONTROL AND STATUS REGISTER 1 
'ML_ADDR + %0'2' WORD COUNT REGISTER 

'ML_ADDR + %0°4' UNIBUS ADDRESS REGISTER 
'ML_ADDR + %0'6' DESIRED ADDRESS REGISTER 
'ML-ADDR + %0'10* CONTROL AND STATUS REGISTER 2 
'ML_-ADDR + %0'12" DRIVE STATUS REGISTER 
'ML_ADDR + %0'14° ERROR REGISTE 

'ML_ADDR + %0°16" ATTENTION SUMMARY REGISTER 
'ML_ADDR + %0°20° LOOK AHEAD REGISTER 

'ML_ADDR + %0°20' PROM ADDRESS REGISTER 
'ML_ADDR + %0'22* DATA BUFFER REGISTER 

'ML-ADDR + %0°24° MAINTENANCE REGISTER 

'ML_ADDR + %0'26" DRIVE TYPE REGISTER 

'ML-ADDR + %0°30' SERIAL NUMBER REGISTER 
'ML-ADDR + %0'32* ECC CRC WORD REGISTER 1 
'ML-ADDR + %0'34° ECC CRC WORD REGISTER 2 
'ML-ADDR + %0'36" DATA DIAGNOSTIC REGISTER 1 
'ML-ADDR + %0'40' DATA DIAGNOSTIC REGISTER 2 
'ML_ADDR + %0'42° ECC ERROR REGISTER 

'ML-ADDR + %0'44° ECC ERROR LOCATION REGISTER 
'ML-ADDR + %0°46" PROM DATA REGISTER 

'ML-ADDR + %0°50" BUS ADDRESS ES2TENSION REGISTER 
'ML-ADDR + %0'52* CONTROL AND STATUS REGISTER 3 


' we ERROR LOCATION **** 


Page 


2 
SEQ 0035 


| BSKELS 8:40:22 TOPS=20 Bliss-16 V2(212) 

| REV A PATCH 00 CONSTANT LITERAL DECLARATIONS 21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI.1 (2) 

i 3 1586 ERR_1 = 1, ‘INIT CODE SECTION 

i 3 1587 ERR_2 = 2, 'INIT CODE SECTION 

¢ 1588 ERR_3 = 3, ‘INIT CODE SECTION 

i 3 1589 ERR_4 = 4, 'PM_THIS_BANK ROUTINE 

| 3 1590 ERR_5 = 5, ! IN-ERROR_MAP ROUTINE 

i 3 1591 ERR_6 = 6, 'IN_ERROR_MAP ROUTINE 

| 3 1592 ERR_7 = 7, 'IN-BLAST_TBL ROUTINE 

3 8 = 8, L 

1593 ERR_8 = 8 'VER_BLAST ROUTINE 

| 3 1594 ERR_9 = 9, 'INIT CODE SECTION 

3 1595 ERR_10 = 10, 'BL_PROMS ROUTIN 

; 1596 ERR_11 = 11, 'VER_ERROR_MASK ROUTINE 

; 1597 ERR_12 = 12, 'VER-ERROR_MASK ROUTINE 

; Fa ERR_13 = 15, ‘MASS BUS TRANSFER ROUTINE 

; be ! DESIRED SECTOR ADDRESS FIELD SELECT CONSTANT VALUES 

; 1602 BNK$SEL_SIZE = 2, ' BANK SELECT SIZE EXPRESSION 

: > ARRSSEL_SIZE = 4, | ARRAY SELECT SIZE EXPRESSION 

; H+ 1'<4 : FLAG REGISTER SELECTION DEFINITION 

; 1607 F_FLG_ERR = 0, ‘GENERAL PURPOSE ERROR FLG 

3 1608 F_UNC_ERR_FLG = 1, ‘INDICATES AN UNCORRECTABLE ERROR WAS DETECTED 

; 1609 F-ERR_MAP_ENTERED = 2 
; 1610 F7BLST_TBL_ENTERED = 3, 
; 1611 F_ALL_BAD_CHIP = 4, 
; 1612 F_RAND_DATA = 5, 
; 1613 F_ABORT_ARRAY = 6 
3 1614 F_D_CLK_TIME_OUT = 7 
: 1615 : 
‘4 1616 ' BOOLEAN VALUES 
2 1617 : 
; 1619 FALSE = 0, 
; 1620 ; 
; 1621 ' CRC DATA BIT DEFINITIONS 
5 1622 ‘ 
; 1623 CRC_P = 36, 
: 1624 CRC_A = 37, 
; 1625 CRC_B = 38, 
; 1626 CRC_NIBBLE = ?, 
: 1627 ; 
: 1oc8 : DELAY MACRO CELAY VARIABLES 
; 1630 ONE_US = 1, 
; 1631 FIFTY_MS = 100. 
: 1632 TEN_MS = 10000, 
; 1633 : 
; 1634 ' MISCELLANIOUS CONSTANTS 
3 1635 : 
: 1636 ML11A = 1, 
: 1637 SET_FLG = 1, 





| INDICATES THAT THIS BANK HAS ONE 


‘INDICATES THAT THE ERROR MAP HAS AN ENTRY 

‘INDICATES THAT THE BLAST TABLE WAS ENTERED 

ALL BAD CHIP >14 ROW OR COL BAD 
INDICATES THAT RANDOM DATA PATTERN IS PRESENTLY USED 


. ' INDICATES THAT FURTHER TESTING OF THIS ARRAY IS TO BE ABORTED 


‘INDICATES THAT THE DATA CLOCK BIT IS HUNG HIGH 


'LOGICAL TRUE INDICATOR 
'LOGICAL FALSE INDICATOR 


‘ECC CRC CHIP 36 
'ECC CRC CHIP 37 
‘ECC CRC CHIP 38 
'ECC CRC NIBBLE NINE 


'DELAY FOR ONE MICRO SECOND 
'DELAY FOR 50 MILLI SECONDS 
'DELAY FOR 10 MILLI SECONDS 


'ML11A IS A 16K MOS RAM ARRAY 
'CONSTANT TO SET A FLAG 


Pa 3 
SEQ 0036 


| BSKELS 

| REV A PATCH OO CONSTANT LITERAL DECLARATIONS 
i 3 1638 CLR_FLG = 0, 

| 3 1639 enabE = 1 

13 1640 DISABE = 6; 

: 1641 


L @ 
21-Apr-1981 08:40:22 
21-Apr-1981 08:19:06 


!CONSTANT TO SET A FLAG 


TOPS=20 Bliss=-16 V2(212) 


PA:<NEALE>PMSKL4.BLI1.1 


‘ENABLE MLMR REGISTER FUNCTION 
'DISABLE MLMR REGISTER FUNCTION 


(2) 


Pa 4 
SE 070037 


BSKELS 
REV A PATCH 00 
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FIELD DECLARATIONS 
%sbttl "FIELD DECLARATIONS 
FIELD DECLARATIONS 


field 


i REMAINING ERROR TABLE STRUCTURE MAP 


MAP_REM_TBL = 

ROW = (8, 8, OJ. 

= CO 2 ° ° 
RO_cL = CO, 16, 0] 


: FAILING CHIP AND PATTERN STRUCTURE MAP 


MAP_CHIP_TBL = 


O— WWE) 


Te 
(oon Loe Loe Loe Lae Lon Lie Le Le oe ee La 
PMMA SMA NOO See 
es © 8 & & 


PaTS = (0, 15 
= (0, 16 


WRITE BUFFER STRUCTURE MAP 


ee 
Coe on Loe en Loe ae Le Le 
NOW EWN O 
ess 8 8 8 & 8&8 8 
—_— os 
ra 8 95 8.84 8 

oo°oo 

ou 

_ 


M 3 
21-Apr-198 


08:40:22 TOPS=20 Bliss-16 V2(212) 
21-Apr-1981 08:19:06 


PA:<NEALE>PMSKL4.BLI.1 (3) 


'SELECT FAILING ROW NUMBER POSITION 
‘SELECT FAILING COLUMN POSITION 
'SELECT BOTH ROW AND COLUMN POSITION 


'SET WHEN al CHIP HAS ADDITIONAL FAILING ROW/COL 
'THIS CHIP FAILS ZEROES PATTERN 

'THIS CHIP FAILS ONES PATTERN 

'THIS CHIP FAILS RANDOM PAT 


CHIP FAIL OM DATA 
iSELECT ALL FAILING PATTERNS 
'SELECT ALL BITS IN BYTE 


'DEF INES 
'DEF INES 
'DEF INES 


: OF WRITE BUFFER 

8 
'DEFINES B 

B 

B 

B 

B 


!DEF INES 
!DEF INES 
!DEF INES 
!DEF INES 


SS 
NOUS WN HO 


Pa 5 
SEQ "0038 


NS 
i 


S$ -__ 
N 3 

| BSKELS 21-Apr-1981 08:40:22 TOPS=20 Bliss-16 V2(212) Page 6 
| REV A PATCH 00 FIELD DECLARATIONS 21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI.1 (3) SEQ 0039 


!DEFINES BIT 


1745 WCE - (14, 1, 0), !WRITE CHECK ERROR 


| 169% BIT_8 = (8. 1. 02, 7 es 

| 3 1695 617-9 = (9; 1. 0}, ‘DEFINES BIT 9 "* : 
: 1696 BIT~10 = Ci0,°1, 03, iDEFINES BIT 10 °° ‘ 

| 3 1697 BIT_11 = (11, 1, 0J, 'DEFINES BIT 11 °° - ”" 
: 1698 BIT~12 = (12. 1. 0); iDEFINES BIT 12°" ‘* 
: 1699 BIT-13 = (13. 1. OJ, iDEFINES BIT 13" '* 
: 1700 BIT714 = (14; 1. 0]. iDEFINES BIT 14°" 
: 1701 BIT715 = (15, 1. OJ. iDEFINES BIT 15" ‘* * 
: 1702 WRD-= CO, 16. 03 iDEFINES WORD OF THE WRITE BUFFER 
; 1703 tes, 
; 1704 
; 1703 i TEMPORARY BLAST TABLE STRUCTURE MAP 
: 1707 MAP_TMP_BLST_TBL = 
z 1708 set 
° 1709 NIB_NO = C0, 4, 0], ‘DEFINES FAILING CHIPS NIBBLE POSITION 
; 1710 R_C"NO = [4, 8. 0], ‘DEFINES CHIPS FAILING ROW OR COLUMN 
: 1711 R7C~= (15, i, 63 iSET = ROW ADDRESS, CLR = COLUMN ADDRESS 
; we , tes, 
: 1716 i RH / ML=11 REGISTER ACCESSING STRUCTRUE MAP 
: 1716 MAP_ML11_REG = 
; 1717 set 
; 1718 4 
: 1719 i MLCS1 CONTROL STAUTS REGISTER 1 
: 1721 $c = (15, 1, 0), ‘SPECIAL CONDITION 
; 1722 TRE = (14, i, 09. i TRANSFER ERROR 
; 1723 MCPE = (13, i, 03, iBUS PARITY ERROR 
; 1724 DVA = (11, 1, 0], iDRIVE AVAILABLE 
: 1725 RDY = [7,°1, 0]. iDRIVE READY 
: 1726 IE = (6,1, 0], i INTERRUPT ENABLE 
: 1727 GO = £0. 1. 0]. iFUNTION GO BIT 
: 1728 Func = [0,°6, 62, iFUNTION CODE 
: 1730 MLWC WORD COUNT REGISTER 
: 1732 WC_REG = (0, 16, 0). 'WORD COUNT REGISTER 
: 1734 | MLBA UNIBUS ADDRESS. REGISTER 
: 1736 BA_REG = £0, 16, 0, 'UNIBUS ADDRESS REGISTER 
: 1738 i MLDA DESIRED ADDRESS REGISTER 
: 1740 DALREG = [0, 16, 01, 'DESIRED SECTOR REGISTER 
: 174¢ MLCS2 CONTROL AND STATUS REGISTER 2 

: 1744 DLT = (15. 1, 9), 'DATA LATE 
| 


BSKELS 
RE 





NNNNNN 
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Co 


I 

PE = £13, 1, 0) 

NED = (12, i, 01, 
NEM = (11. 1. OJ. 
PGE = (10. 1. 0). 
mxF = (9, 1, 0] 

mpPE = (8, 1, 01, 
oRDY = (7. 1. 0). 
IRDY = (6. 1. 0]. 
CLR = (5, 1, OJ» 

PAT = [4. 01, 

BAI = (3. 1, 0]. 
DRV_SEL = (6, 3, 01. 
| MLDS DRIVE STATUS REGISTER 
ATIN = £15, 1, 0. 
COMP_ERR = [14, 1, 0J, 
MOL = (12, 1, 0), 
LBT = £10. 1. 0). 
DPR = (8, 1, 0]- 

DRY = [7. 1. 01. 

w = (6, 1, 0), 


! 
MLER ERROR REGISTER 


pck = (15, 1, OJ, 
UNS = (14, 1, OJ. 
oP! = (13, 1, OJ. 
IAE = £10, 1, 0), 
AOE = (9, 1, OJ, 
ECH_ERR = (6, 1, 0], 
DPAR = (5, 1, OJ. 
CPAR = (3, 1, 0], 
RMR = C2, 1, 0], 
ILR = C1, 1, 0), 
ILF = CO, 1, 0], 


i MLAS ATTENTION SUMMARY REGISTER 
ATTN_REG = (0, 16, 0], 

; MLPA PROM ADDRESS REGISTER 
PA_REG = (0, 16, 01, 

MLMR MAINTENANCE REGISTER 

SIZING = (11, 5, 0], 

TRT = (8, 2, OJ, 

ARR_TYP = (10, 1, OJ, 

P_RW = (6, 1. 05. : 


B 4 
21-Apr-1981 08:40:22 
21-Apr-1981 08:19:06 


'UNIBUS PARITY ERROR 
'NON-EXISTENT DRIVE 
'NON-EXISTENT MEMORY 

'PROGRAM ERROR 

'MISSED TRANFER 

'MASSBUS DATA BUS PARITY ERROR 
- OUTPUT READY 


! INPUT READY 

‘CONTROLLER CLEAR 

'PARITY TEST 

'UNIBUS ADDRESS INCREMENT INHIBIT 
'UNIT SELECT 


TOPS=20 Bliss=-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (3) 


‘ATTENTION ACTIVE 
'ERROR SUMMARY 
'MEDIUM ON LINE 


'DATA_ CHECK 

'DRIVE UNSAFE 
'OPERATION INCOMPLETE 

' INVALID ADDRESS ERROR 
'ADDRESS OVERFLOW ERROR 
'ECC HARD ERROR 

'DATA PARITY ERROR 
‘CONTROL PARITY ERROR 
'REGISTER MOD ERFUSED ERROR 
‘ILLEGAL REGISTER ERROR 
‘ILLEGAL FUNCTION 


'ATTENTION SUMMARY REGISTER 
!PROM ADDRESS REGISTER 


‘SYSTEM SIZING 

! TRANSFER RATE 
'ARRAY TYPE 
'REFRESH MARGIN 
'PROM READ/WRITE 


Page 7 
SEQ 0040 
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: 1798 P_pis = (5, 1, 0]. 'PROM DISABLE 

: 1799 D7CLK = (4; 1, 01, iDATA CLOCK 

: 1800 D-DM = (3, 1, 0], iDATA DIAG MODE 

: 1801 DTEN = (2, 1, 0] iDATA CHECK ENABLE 
: 1802 E"DIS = Ci, 1, 03. iECC DISABLE MODE 

: 1803 E~pM = (0, 1, 0], iECC DIAG MODE 

: 1804 MR_REG = fo,°16, 0], iMAINTENANCE REGISTER 
: 1806 i MLDT DRIVE TYPE REGISTER 

: 1808 DRVTYP = (1, 8, 0]. ‘DRIVE TYPE 

: 1809 DT_REG = C0, 1, 0], iDRIVE TYPE REGISTER 
: 1811 | MLSN SERIAL NUMBER REGISTER 

: 1813 SERIAL_REG = C0, 16, 01, ‘SERIAL NUMBER REGISTER 
: 1815 i MLE1 ECC CRC WORD REGISTER 1 

: 1817 PAR_CRC_WRD = (8, 6, OJ, 'PARITY CRC WORD 

; 1818 CRCSA = CO, 6, 0), iCRC WORD AA 

: 1819 E1_REG = (0, i6, 02, iECC CRC REGISTER 1 
: 1821 | MLE2 ECC CRC WORD REGISTER 2 

: 1823 8.32 = (8, 1. 02. ‘DATA BIT 32 

; 1824 B33 = (9, 1, 0J, iDATA BIT 33 

: 1825 8734 = (10, 1, 03. iDATA BIT 34 

: 1826 B35 = (11. 1. OJ. iDATA BIT 35 

: 1827 B36 = [12. 1. 01. iDATA BIT 36 

: 1828 B737 = (13. 1. OJ. iDATA BIT 37 

: 1829 8738 = (14. 1. 0). iDATA BIT 38 

é 1830 cRc$B8 = CO, 6, 0J, 'CRC WORD B-B 

: 1831 E2_REG = (0, 16, 02, iECC CRC REGISTER 2 
: 1833 ! MLD1 DATA DIAGNOSTIC REGISTER 1 

: 1835 6.0 = CO. 1. 02, ‘DATA BIT 0 

; 1836 B71 = £1. 1. OJ, iDATA BIT 1 

: 1837 B-2 = C2. 1. OJ. iDATA BIT 2 

: 1838 B.3 = (3. 1. 0). iDATA BIT 3 

: 1839 B74 = [4. 1. OJ. iDATA BIT 4 

: 1840 B75 = (5, 1, OJ. iDATA BIT 5 

: 1841 B-6 = (6. 1. 0]. iDATA BIT 6 

: 1842 B77 = (7. 1. 01. iDATA BIT 7 

: 1843 B.8 = (8. 1. 0]. iDATA BIT 8 

: 1844 B79 = (9; 1. 0], iDATA BIT 9 

: 1845 B710 = Ci0, 1, 02. iDATA BIT 10 

: 1846 B11 = (11. 1. OJ. iDATA BIT 11 

; 1847 B12 = £12. 1. 01. iDATA BIT 12 

: 1848 B713 = (13. 1. 02; iDATA BIT 13 

; 1849 B714 = (14. 1. 03. iDATA BIT 14 
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| REV A PATCH 00 FIELD DECLARATIONS 21-Kpr=1981 08:19:06  PA:<NEALE>PMSKL4.BLI.1 (3) SEQ 0042 
| 3 1850 B15 = (15, 1, 0], ‘DATA BIT 15 
| 3 1851 DB1_REG = f0,°16, 01, iDATA DIAG REGISTER 1 
| : 1853 | MLD2 DATA DIAGNOSTIC REGISTER 2 
|: 1855 8.16 = (0, 15, 01, (DATA BIT 16 
|; 1856 B17 = (1. 1, 0J, iDATA BIT 17 
| 3 1857 8-18 = (2, 1, 0), ‘DATA BIT 18 
: 1858 B-19 = (3. 1. OJ. iDATA BIT 19 
: 1859 B20 = (4. 1. 0J. iDATA BIT 20 
: 1860 B21 = (5. 1. OJ. iDATA BIT 21 
: 1861 B22 = [6, 1. 0J. iDATA BIT 22 
: 1862 B723 = (7. 1. OJ. iDATA BIT 23 
: 1863 B24 = (8. 1. 01. iDATA BIT 24 
: 1864 B25 = (9; 1, 0], iDATA BIT 25 
: 1865 B26 = £10, 7. OJ. iDATA BIT 26 
: 1866 B727 = (11. 1. 0). iDATA BIT 27 
: 1867 B28 = (12. 1. OJ. iDATA BIT 28 
: 1868 B729 = (13. 1. OJ. iDATA BIT 29 
: 1869 B30 = (14. 1. OJ. iDATA BIT 30 
: 1870 8731 = (15. 1. 0). iDATA BIT 31 
: 1871 DB2_REG = fo,°16, 0), iDATA DIAG REGISTER 2 
: 1873 ; MLEE ECC ERROR REGISTER 
: 1875 UNC = (15, 1, 0], 'UNCORRECTABLE ERROR 
; 1876 SGL = (14. 1. OJ. iSINGLE ERROR 
; 1877 crc = (13. 1. OJ. iCRC ERROR 
: 1878 CHAN = [6, 6, OJ. iCHANNEL IN ERROR 
: 1879 EBit = (0, 6, 01, ‘ERROR FUNCTION 
: 1881 : MLEL ECC ERROR LOCATION REGISTER 
: 1883 EL_REG = (0, 16, 0), ‘ERROR LOCATION REGISTER 
: 1885 MLPD PROM DATA REGISTER 
: 1887 PD_REG = (0, 16, 0). ‘PROM DATA REGISTER 
: 1889 i MLBAE BUS ADDRESS EXTENTION REGISTER 
1891 BAE_REG = (0, 16, 01, 'BUS ADDRESS EXTENTION REGISTER 
1893 MLCS3 CONTROL AND STATUS REGISTER 3 
1895 CS3_REG = (0, 16, 01, ‘CONTROL AND STATUS REGISTER 3 
1897 ! ML_ALL ACCESS ALL BITS IN SELECTED REGISTER 
1899 ML_ALL = (CO, 16, 0] ‘ACCESS ALL REGISTER BITS 
1900 tes; 








E 
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| ; iene Asbttl "STRUCTURE DECLARATIONS' 
| 3 1904 |! STRUCTURE DECLARATIONS 
| 3 1905: 
i J 1906 
is 1907 structure 
2 1908 : 
: Hb ML-11 REGISTER ACCESSING STRUCTURE 
: 1911 ' THIS STRUCTURE ALLOWS ML-11 REGISTER 
Pe 1912 ' ACCESSING TO BE TRANSPORTABLE BETWEEN 
; bat ' THE PDP=11 AND VAX DIAGNOSTIC SUPERVISORS 
, 1915 !<BLF /NOF ORMAT> 
5 1916 
: 1917 
; 1918 RH (O, P, S, EJ = 
: 1919 begin 
; 1920 
; 1921 local 
: 1922 ML_REG; 
; 1923 
; 1924 ML_REG = .(RH * %upval*0)<0, %bpval, 0>; 
: 1925 ML_REG ee dic 


3 1926 end <P, S, E>: 
; 1927 
; 1928 :<BLF/FORMAT> 
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EXTERNAL DECLARATIONS 21-Apr-1981 08:19:06  PA:<NEALE>PMSKL4.BLI.1 (5) . SEQ 0044 
X%sbttl “EXTERNAL DECLARATIONS’ 
' EXTERNAL DECLARATIONS 
external rout ine 

i RANDOM NUMBER GENERATOR ROUTINE WRITTEN IN MACRO SOURCE CODE 

RANGEN : novalue; 
external 

RANDOM NUMBER GENERATOR ROUTINE SEED VARIABLES 

SEED1, ‘FIRST WORD OF RANDOM NUMBER BUFFER 

SEED2, iSECOND WORD OF RANDOM NUMBER BUFFER 

SEEDS, ‘THIRD WORD OF RANDOM NUMBER BUFFER 

RANDAT , iL INKAGE WHICH RANDOM NUMBERS ARE RETURNED 

i DIAGNOSTIC SUPERVISOR GLOBAL VARIABLES 

LSUNIT: ‘SUPERVISOR STORAGE OF UNITS SELECTED 


BSKELS 
| REV A 
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%sbttl "OWN STORAGE DECLARATIONS 
| OWN STORAGE DECLARATIONS 


Own 


ERROR MAP INTERIGATION STRUCTURES 


COL_ CNT_ TBL : vector (256, byte] volatile, !COLUMN COUNT TABLE 

REM_TBL_: block [100] fieid (MAP REM TRL) volatile, !REMAINDER TABLE 

COPTED REM. TAL : block £100] field (MAP_R REM_ TBL) volatile, ‘COPIED REMAINDER TABLE 
COL. PTR : Vector £10, byte] volatile, ‘COLUMN COUNT TABLE POINTER 


. 1/0 SUFFERS 
WRT _BuF : block [(128 + 5i1*2)] field (MAP_WRT BUF) volatile, ‘WRITE BUFFER 
RD_BuF : vector [256] volatile, ‘READ BUFFER 


! FAILING ROW AND SECTOR STORAGE STRUCTURE 

ERROR_MAP : blockvector (512, 8] volatile, !ERROR MAP OF FAILING ROWS AND SECTORS 
| FAILING CHIPS AND PATTERN STORAGE STRUCTURE 
CHIP_TBL : block [39] field (MAP_CHIP_TBL) volatile, 
| ROW & COL BLAST INFORMATION STORAGE STRUCTURE 


TMP_BLST_TBL : block [10] field (MAP_TMP_BLST_TBL) volatile, 
BLAST TAL : blockvector [4, 512] volatile, t ACTUAL BLAST TABLE 


'FAILING CHIP TABLE 


! TEMPORARY BLAST TABLE 


COL_BASE, iCOLUMN ADRS BASE INDEX INTO BLAST TABLE 
i ML=11 ACCESSING STRUCTURE REFERANCE | 
ML_ADDR : ref RH tield (MAP_ML11_REG) volatile, 'RH BASE REGISTER ADDRESS 

i INIT CODE GLOBAL VARIABLES 

max CHIP_COL, 'NUMBER OF COLUMNS PER MOS RAM 

mL_BUT :~volatile. 'ML-11 DIVICE UNDER TEST 


ARR$BNK SEL : volatile, 
TSTED BNK : volatile, 
INC_BNK : volatile, 
INC_ARR : volatile, 
ARR_SEL_POS : volatile, 
BNK_ SEL “POS : volatile, 
BNK ~NUM_ SEC : volatile, 


i PROGRAM FLAG REGISTERS 


BAD_BNK_REG : bitvector [8] volatile, 


OF HOW MANY BANKS TO ARRAY MAINT 
'BANK ADRS INCREMENT VALUE 
'ARRAY ADRS INCREMENT VALUE 
'FIELD SELECT POSITION EXPRESSION 
'FIELD SELECT POSITION EXPRESSION 


! INDICATES IF BANK HAS NEW ERRORS 


ae en SECTOR ADRS WHERE ARRAY MAINT IS PERFORMED 


' INDICATES NUMBER OF SECTORS PER BANK. 16K = 128, 64K 


Page 12 
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2019 EQUALS; 


BSKELG 

REV A PATCH 00 OWN STORAGE DECLARATIONS 51-Apr-1981 08:19:06  PA:<NEALE>PMSKL4.BLI.1 (6) SEQ 0046 
: 2005 GREG : bitvector [16] volatile, ‘GENERAL FLAG REGISTER 

: 006 DE GRADE _MOD_REG : bitvector [8] volatile,  !DEGRADE ARRAY MODE FLAG REGISTER 

; 2008 MISCELLANEGUS VARIABLES 

: 2010 SIZE : volatile, ‘TRANSFERS WORD COUNT SIZE 

; 2011 DST : volatile, i TRANSFERS DESTINATION ADDRESS 

: 2012 SRC : volatile. i TRANSFERS SOURCE ADDRESS 

: 2013 LST TSTED_ARR : volatile, i, AST ARRAY MODULE NUMBER IN Ml=11 SYSTEM 
3 sie RANB_PASS : volatile; ‘RANDOM DATA PASS VARIABLE 

; 2016! 

; 2017 SUPERVISOR GLOBAL EQUATES 


BSKELS 
REV A PATCH 00 BIND DECLARATIONS 


I 4 
21-Apr-1981 08:40:22 TOPS=20 Bliss-16 Vv2(212) 
21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI.1 (7) 


2020 %sbttl "BIND DECLARATIONS" 
2022 | BIND DECLARATIONS 
2023 | 


2024 
2025 bind 
026 : 


ERROR AND RUN TIME MESSAGES 


CONTA_MSG = uplit (%asciz*CONDITION A’) 
CON_B_MSG = uplit (%asciz* CONDITION B'), 
CONTC7MSG = uplit (%asciz'CONDITION C"), 
_D_MSG = uplit (%asciz*CONDITION D '), 
UNC CRIP_MSG = uplit (%asciz'UNCONFIRMED FAILING CHIP"), 


GTR_MSG = uplit (%asciz'MORE THAN ONE UNIT SELECTED FOR PROM MAINT’), 
UNIT_SEL_MSG = uplit (%asciz*ALL UNITS EXCEPT UNIT 0 WILL BE IGNORED’), 

Sw_BUG MSG = uplit (%asciz'UNEXPECTED SOFTWARE BUG DETECTED NOTIFY DIAG ENG"), 
ABORT_MSG = uplit (%asciz'PROM MAINTANENCE ABORTED FOR THIS ARRAY'), 

NO_AD-MSG = uplit (%asciz'NO ADDITIONAL ERRORS BLASTED FOR THIS ARRAY’), 
UNT_ERR_MSG = uplit (%asciz'UNCORRECTABLE ERRORS DETECTED AFTER BLASTING’), 
TIME_OUT_MSG = uplit (%asciz'DATA CLOCK BIT FAILED TO RESET AFTER PROM WRITE"), 
REP_M7363_MSG = uplit (%asciz'REPLACE ARRAY DATA MODULE M7365"), 

MEM_ERR_MSG = uplit (%asciz'MEMORY ERRORS STILL EXIST AFTER BLASTING’), 
UNX_DRV_ERR_MSG = uplit (%asciz'UNEXPECTED DRIVE ERRORS DETECTED’), 

RD_XFER_MSG = uplit (%asciz'OCCURED DURING A MASS BUS READ TRANSFER’), 
WRT_XFER_MSG = uplit (%asciz*OCCURED DURING A MASS BUS WRITE TRANSFER"), 

WT _THK_XFER_MSG = uplit (%asciz'OCCURED DURING A MASS BUS WRITE CHECK TRANSFER"), 
x Msc = uplit (%asciz""), 


! PRINTING FORMATS 
! PRINT ONE MESSAGE 


TWO-MSG = uplit (%asciz'%T%T2N') iPRINT TWO MESSAGES 
THREE MSG = uplit (%asciz'%T%T2TIN'), i PRINT THREE MESAGES 
FOUR MSG = uplit (%asciz'%TXTATATIN'), ' PRINT FOUR MESSAGES 


‘PRINT A LINE FEED <CR> 
i PRINT TWO <CR> 


O_1_PRINT = uplit (%asciz'£TZ012N"), i PRINT OCTAL DIGIT AND A MESSAGE 
O~6"PRINT = uplit (%asciz'%TZ06%N'), i PRINT SIX OCTAL DIGITS AND A MESSAGE 
D-27PRINT = uplit (%asciz'%T%D22N") i PRINT A TWO DIGIT NUMBER AND A MESSAGE 


DRV7SEL_PRINT = uplit (%asciz'%ADRIVE %01%A SELECTED%N'), 
‘ ' PRINT THE DRIVE SELECTED NUMBER TO THE OPERATOR 
ARR_SEL_PRINT = uplit (%asciz*%S&S%SRSZSRSRSESZATESTING ARRAY %D2%N"), 


Pa 
SEQ 
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BSKELS 
REV A PATCH 00 BIND DECLARATIONS 21-Apr-1981 08:19:06 PA: <NEALE>PMSKL4.BLI.1 (7) SEQ 004 
: 2072 ' PRINT THE ARRAY SELECTED TO THE OPERATOR 
: 2073 BNK_SEL_PRINT = uplit (%asciz' %S%SUSLSLSZS%SZSZS%S%S%S 4S %S%S%S ZABANKZSZS%SZD12N"), 
° 2074 ‘ ' PRINT THE BANK PRESENTLY UNDER TEST TO THE OPERATOR 
: 2075 A_B_C_PRINT = uplit (%asciz'%AARRAYZSZD2%SZABANK%S 201 XSRABIT #ZSZD22N'), 
° 2076 A_B_N_PRINT = uplit (%asc iz ZAARRAY%S%D2%S ZABANK%S 201 ZSZANIBBLEZS2D22N") , 
; 2077 REP_PRINT = uplit (%asciz*%AREPLACE ARRAY MODULE%S%D2%S%S%AOR RERUN PROGRAMZN'), 
; 2078 A_B_PRINT = uplit (%asciz' ZAARRAYZS%D2%SZABANK%S2012N' 
; 2079 C51_PRINT = uplit (Yasc iz* XSLSLSXSXAMLCS 1 USKSKSRSLSLSBSKSKSBSKSLSUSKSZSZSOGOAN' ) , 
; 2080 WC_PRINT = uplit (%asc iz’ SS%SZSZSRAMLWCLSZSASASASASASASASASASASASZSZSZSZOGAN ® ) , 
; 2081 BA-PRINT = uplit (Xasciz' %SXSXSLSLAMLBARSASLSASASASASASASASASASASASASTSZOGAN' ) , 
2082 DA_PRINT = uplit (%asc iz" ZS¥SXSZSZAMLDAZSASLSASASAS AS ASASASZSASASZSZSAS%06 N'), 
: 2083 CS2_PRINT = uplit (%asciz’ SSRSSSRSZAMLCS2LSLSZSZS ZS ZS ZSZSZSZSASASASZSESZSZOGIN") , 
: 2084 DS_PRINT = uplit (%asciz AUSASALSLSXAMLDS ZSASASASASASASASASASASZSASASZSZSZOGAN' ) , 
; 2085 ERTPRINT = uplit (%asciz’ SSXSZSSRAMLERZSLSASASASASASASZSASASASASASZSZSZOGIN* ) , 
; 2086 AS_PRINT = uplit (%asc iz" ZSRSASZSRAMLASZSASLSASASAS LS ASASASASASASZSASAS LOGAN") , 
; 2087 MR_PRINT = uplit (%asc iz* SSXSRSZSZAMLMRAS ZS ZSZSASASASTSZSZSASASASASZSZSZOGAN' ) , 
5 2088 DITPRINT = uplit (%asc iz’ ¥SXSASLSZAMLDTASLSZSASASASASASASASZSASASASTSZSZOGIN') , 
; 2089 SNIPRINT = uplit (%asciz' SSRSASLSZAMLSNASASLSZSASASASASASTSASZSASASASZSZOGIN') , 
° 2090 EE_PRINT = uplit (%asc iz' ZSRSASZSZAMLEE ZSASASASASASZSASASASASASASZSASASZOGAN' ) , 
; 2091 EL_PRINT = uplit (Masc iz" %SLSXSLSZAMLEL RSASASASLS AS AS ASS ASS ASUS ASASZSZOGAN" ) , 
; 2092 HEADER_PRINT = uplit (%asciz' %SASASASASASASASASASZAREGISTER DUMPZNZN"), 
g 2093 COL_DESC_PRINT = uplit (%asciz'%SZSZAREGISTER NAME %SZSXSXASZSZSZACONTENTS2N"), 
; oe X_PRINT = uplit (Zasciz""); 


| 
} 


_—— 
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| REV A PATCH 00 MACRO DECLARATIONS 21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI.1 (8) SEQ 0049 
l 2096 sbttl "MACRO DECLARATIONS’ 
is 2098 ! MACRO DECLARATIONS 
3 2099 =! 
; 2100 
2 2101 macro 
; 2102 : 
: $182 ML=LL REGISTER ACCESSING MACRO 
: 2105 i THIS MACRO ALLOWS ML-11 REGISTER ACCESSING TO BE 
| 3 2106 i TRANSPORTABLE BETWEEN THE PDP=-11 AND VAX DIAGNOSTIC 
; 3404 SUPERVISORS. 
: M 2109 WRT_RH (O, FIELDNAM, IMAGE) = 
: M 2110 begin 
; M 2111 
. M 2112 local 
: M 2113 MLREG; 
; M 2114 
: Mm 2115 MLREG = .ML_ADDR [O, ML_ALLJ; 
: M 2116 MLREG<%fieldexpand (FIETDNAM)> = IMAGE; 
: M 2117 (.ML_ADDR + Z%upval*0) = .MLREG; 
: 2118 end;4. 
; 2119 ! 
; sist CLEAR RH AND MASS BUS DEVICES 
; M 2122 CLR_MBUS = 
: M 2123 WRT_RH CMLCS2. CLR, ONE);!CLEAR THE MASS BUS 
; sist WRT_RH (MLCS2, DRV_SEL, .ML_DUT);%. ‘RESTORE THE DRIVE SELECT NUMBER 
; sist CLEAR MASS BUS DEVICES 
: M 2128 CLR_DRIVE = 
: sige WRT_RH TMLCS1, FUNC, FUNC_2);%, 'CLEAR THE DRIVE 
; Sits MAINTANENCE REGISTER DIAG MODE SETTING MACROS 
: M 2133 RD_PROM_MODE = 
: 2134 WRT_RH¢MLMR,MR_REG,PM_RD_MODE) ;%, 'ENABLE PROM READS 
5 M 2135 WRT_PROM_MODE = 
: 2136 WRT_RH(MLMR,MR_REG,PM_WRT_MODE) ;%, 'ENABLE PROM WRITES 
: M 2137 DAT_DM (X)"= bd 
s 2138 WRT_RH CMLMR,D_DM, X);%, 'ENABLE/DISABLE DATA DIAG MODE 
; M 2139 ECC_DIS (x) = 
: 2140 WRT_RH TMLMR,E DIS, X);%, 'ENABLE/DISABLE ECC DISABLE MODE 
: M 2141 PROM RW (XxX) = 
: 2142 WRT_RH (MLMR,P_RW, X);%, ‘ENABLE PROM READ WRITE 
: M 2143 DAT_CLK = 
: 2144 WRT_RH TMLMR,D_CLK, ONE);%, ‘DATA CLOCK 
: M 2145 PROM_DIS (X) = 
: 2146 WRT_RH (MLMR,P_DIS, X);%, 'ENABLE PROM DISABLE 
; M 2147 DCK_EN (X)7= 





a 
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; 2148 WRT_RH (MR DLEN, K)3%, 'ENABLE DATA CHECK ENABLE 

: M 2149 “ECC_DM (xX) 

3 sie WRT _RH TMA. F _DM, K)%, ‘ENABLE ECC DISABLE 

: $126 i | MISCELLANIOUS MACROS DEFINITIONS 

: m 5154 RD.MODE = 

: 2155 %o' oD00c0" ‘ENABLE PROM READ MODE 

; M 2156 T MODE = 

; 2157 %o" opoTeo'®, 'ENABLE PROM WRITE MODE 

: M 2158 FULL_WRD = 

: the 0, 16, 02%; ‘SELECTS FULL WORD OF DATA ELEMENT 
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EXTENDED MESSAGE PRINTING SECTION 21-Apr-1981 08:19:06 


%sbttl "EXTENDED MESSAGE PRINTING SECTION’ 


' FUNCTIONAL DESCRIPTION: REGISTER DUMP 

; THIS BGNMSG WILL GET CALLED WHEN THE 

: DRIVE DETECTS ERRORS DURING A MASS 

: BUS TRANSFER. THIS BGNMSG WILL PRINT 
OuT TO THE TERMINAL THE ERROR REGISTERS. 


TOPS=20 Bliss-16 V2(212) 
PA: <NEALE>PMSKL4.BLI.1 


BGNMSG (DUMPER) ; !PRINT THE DUMP MESSAGE 


TITLE BSKEL4 
-IDENT /REV A / 


-PSECT $PLIT$, D 

114 114 P.AAA: .ASCII /ILL/ 
107 101 ASCII = /EGA/ 
040 120 ASCII /L P/ 
117 115 -ASCII = /ROM/ 
115 101 «ASCII / MA/ 
116 124 ASCII /INT/ 
116 101 ASCII = /ENA/ 
103 105 -ASCII /NCE/ 
120 122 ASCII / PR/ 
107 122 -ASCII  /OGR/ 
115 040 -ASCII /AM / 
117 115 -ASCII = /COM/ 
101 116 -ASCII] = /MAN/ 
040 000 -ASCII /D_/<00> 
124 101 P.AAB: .ASCII /STA/ 
124 111 -ASCII /RTI/ 
107 040 ASCII /NG / 
122 117 ASCII = /PRO/ 
040 115 ASCII /M M/ 
111 116 eASCII = /AIN/ 
105 116 ASCII /TEN/ 
116 103 -ASCII = /ANC/ 
000 -ASCII = /E/<00> 
131 120 P.AAC: .ASCII /TYP/ 
040 123 -ASCII /E S/ 
101 122 -ASCII /TAR/ 
040 124 ASCII /T T/ 
040 105 ASCII /0 E/ 
105 103 eASCII = /XEC/ 
124 105 eASCII = /UTE/ 
120 122 ASCII / PR/ 
107 122 -ASCII = /OGR/ 
115 000 eASCII = /AM/<00> 
101 122 P.AAD: .ASCII / 
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| REV A PATCH 00 EXTENDED MESSAGE PRINTING SECTION 21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI.1 (9) SEQ 0052 

| 000145 104 127 101 .ASCII /DWA/ 

| 000150 122 105 040 eASCII /RE / 
000153 121 125 105 -ASCII /QUE/ 
000156 123 124 111 -ASCII /STI/ 
000161 117 116 123 -ASCII /ONS/ 
0001 040 116 117 -ASCII / NO/ 
000167 124 040 101 .ASCII /T A/ 
000172 116 123 127 .ASCII  /NSW/ 
000175 105 122 105 -ASCII /ERE/ 
0002 104 040 103 -ASCII /D C/ 
000203 117 122 122 .ASCII /ORR/ 
000206 105 103 124 sASCII /ECT/ 
000211 114 13) 040 -ASCII /LY / 
000214 000 000 -ASCII. <00><00> 
000216 102 114 101 P.AAE: ASCII /BLA/ 
000221 123 124 111 eASCII /STI/ 
000224 116 107 040 -ASCII /NG / 
000227 123 131 123 -ASCII /SYS/ 
000232 124 105 115 .ASCII /TEM/ 
000235 054 040 101 ASCII /, A/ 
000240 122 122 101 -ASCII /RRA/ 
000243 131 040 117 -ASCII /Y O/ 
000246 122 040 102 -ASCII /R B/ 
000251 101 116 113 -ASCIIT = /ANK/ 
000254 040 116 117 -ASCII / NO/ 
900257 124 040 123 -ASCII /T S/ 
000262 105 114 105 -ASCII /ELE/ 
000265 103 124 105 eASCII /CTE/ 
000270 104 040 000 -ASCII /D /<00> 
000273 000 -ASCII <00> 
000274 120 122 117 P.AAF: ASCII /PRO/ 
000277 115 040 115 -ASCII /M M/ 
000302 101 111 116 -ASCII /AIN/ 
000305 124 101 116 -ASCII /TAN/ 
000310 105 116 103 -ASCII /ENC/ 
000313 105 040 103 -ASCII /E C/ 
000316 117 115 120 -ASCII /OMP/ 
000321 114 105 124 eASCII /LET/ 
000324 105 104 040 -ASCII /ED / 
000327 000 -ASCII <00> 
000330 123 125 120 P.AAG: .ASCII /SUP/ 
000333 120 122 105 -ASCII /PRE/ 
000336 123 123 111 -ASCII /SSI/ 
000341 116 107 040 -ASCII /NG / 
000344 120 122 117 -ASCII /PRO/ 
000347 107 122 101 -ASCII /GRA/ 
000352 115 040 105 -ASCII /M E/ 
000355 130 105 103 -ASCII /XEC/ 
000 125 124. 111 eASCII /UTI/ 
000363 117 116 040 -ASCII /ON / 
000 000 000 -ASCII <00><00> 
000370 122 105 124 P.AAH: ASCII ET/ 
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000373 125 122 116 ASCIi /URN/ 
000376 171 116 0 ASCII /ING/ 
000401 040 124 117 ASCII / TO/ 
000404 040 104 122 ASCII DR/ 
000407 123 076 000 ,ASCII = /S>/<00> 
000412 114 125 116 P.AAI: . ASCII /LUN/ 
000415 040 060 040 ASCII 4 0/7 
0006420 120 055 124 -ASCII «= /P=T/ 
000423 101 102 114 -ASCII = /ABL/ 
000426 105 040 116 -ASCII /E N/ 
000431 117 124 040 .ASCII /OT / 
0004 34 120 122 105 .ASCII = /PRE/ 
000437 123 105 116 .ASCII = /SEN/ 
000442 124 000 .ASCII /T/<00> 
000444 103 117 116 P.AAJ: ASCII /CON/ 
000447 104 111 124 ASCII. /DIT/ 
000452 111 117 116 .ASCII /ION/ 
000455 040 101 000 -ASCII / A/<00> 
900460 103 117 116 P.AAK: . ASCII /CON/ 
000463 104 111 124 -ASCII /DIT/ 
000466 111 117 116 .ASCII /10N/ 
000471 040 102 000 -ASCII / B/<00> 
000474 103 117 116 P.AAL: .ASCII /CON/ 
000477 104 111 124 -ASCII /DIT/ . 
000502 111 117 i16 .ASCII /ION/ 
900505 040 103 000 -ASCII / C/<00> 
000510 103 117 116 P.AAM: .ASCII /CON/ 
000513 104 111 124 -ASCII /DIT/ 
000516 111 117 116 .ASCII /ION/ 
000521 040 104 640 ASCII / D/ 
000524 000 000 “ASCII. <00><00> 
125 116 103 P.AAN: . ASCII /UNC/ 
117 116 106 -ASCII  /ONF/ 
111 122 115 .ASCII. = /1RM/ 
105 104 040 -ASCII /ED / 
106 101 111 -ASCII /FAI/ 
114 111 116 -ASCII /LIN/ 
107 040 103 ASCII /G C/ 
110 111 120 -ASCII = /HIP/ 
000 000 ASCII <00><00> 
115 117 122 P.AAO: .ASCII /MOR/ 
105 040 124 ASCII /E T/ 
110 101 116 .ASCIi] /HAN/ 
040 117 116 .ASCII. / ON/ 
105 040 125 -ASCII /E U/ 
116 111 124 -ASCII = /NIT/ 
040 123 105 ASCII / SE/ 
114 105 103 -ASCII = /LEC/ 
124 105 104 .ASCII = /TED/ 
040 106 117 ASCII / FO/ 
122 040 120 -ASCII /R P/ 
122 117 115 -ASCI] /ROM/ 
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000624 115 101 ASCII / MA/ 
000627 111 116 124 ASCII /INT/ 
000632 000 -ASCI1 <00><00> 
101 114 114 P.AAP: SCII /ALL/ 
000637 040 125 116 ASCII UN/ 
000642 111 124 123 ASCII /ITS/ 
105 130 ASCII / EX/ 
00065C 103 105 120 -ASCII /CEP/ 
000653 124 040 125 ASCII /T U/ 
000656 116 111 124 ASCII /NiT/ 
000661 040 060 040 ASCII / 0 / 
000664 127 111 114 eASCI! = /WIL/ 
000667 114 040 102 ASCII /L B/ 
000672 105 040 111 ASCII /E I/ 
000675 107 116 117 -ASCII  /GNO/ 
000700 122 105 104 eASCII /RED/ 
000703 000 -ASCII. <00> 
000704 125 116 105 P.AAQ: .ASCII /UNE/ 
000707 130 120 105 -ASCII = /XPE/ 
000712 103 124 105 ASCII] /CTE/ 
000715 104 040 123 ASCII /D S/ 
000720 117 106 124 eASCII /OFT/ 
000723 127 101 122 -ASCII = /WAR/ 
000726 105 040 102 ASCII /E B/ 
000731 125 107 040 ASCII /UG / 
9000734 104 105 124 eASCII /DET/ 
000737 105 103 124 ASCII = /ECT/ 
000742 105 104 040 ASCII /ED / 
000745 116 117 124 «ASCII /NOT/ 
000750 111 106 131 ASCII /IFY/ 
000753 040 104 111 ASCII / DI/ 
000756 101 107 040 -ASCII /AG / 
000761 105 116 107 -ASCII = /ENG/ 
000764 000 000 -ASCII <00><00> 
000766 120 122 117 P.AAR: .ASCII /PRO/ 
000771 115 040 115 -ASCII /M M/ 
000774 101 111 116 eASCII = /AIN/ 
000777 124 101 116 eASCII = /TAN/ 
001002 105 116 103 eASCII /ENC/ 
001005 105 040 101 ASCII /E A/ 
001010 102 117 122 -ASCII  /BOR/ 
001013 124 105 104 ASCII /TED/ 
001016 040 106 117 -ASCII / FO/ 
001021 122 040 124 ASCII /R T/ 
001024 119 111 123 eASCII = /HIS/ 
001027 040 101 122 -ASCII / AR/ 
001032 122 101 131 eASCII = /RAY/ 
001035 000 -ASCII  <00> 
001036 116 117 040 P.AAS: .ASCII /NO / 
001041 101 104 104 -ASCII /ADD/ 
001044 111 124 111 ASCII /ITI/ 
001047 117 116 101 -ASCII = /ONA/ 
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| oo10s2 116—Ss«O 105 ASCII /L E/ 
| 001055 122 122 117 "ASCII /RRO/ 
001060 «122 193 040 ASCII] /RS / 
001068 «102 174 101 "ASCII /BLA/ 
1066 «128 126 105 "ASCII /STE/ 
001071 104 040 106 "ASCII /D F/ 
001074 117, -122—~St«—ié<«CK ASCII /OR / 
001077. «124 110 111 ASCII /THI/ 
001102 193040 101 ASCII /S A/ 
001105 152 122 101 ASCII /RRA/ 
001110 181 000 “ASCII /Y/<00> 
001112 125 116 103 P.AAT: lASCII  /UNC/ 
001115 117 122 122 "ASCII /ORR/ 
001120 105 108 154 "ASCII /ECT/ 
001193 101 102 114 "ASCII /ABL/ 
001196  «©105.—~Stts«iKO 105 "ASCII /E E/ 
001131 122 122 117 "ASCII /RRO/ 
001134 122 123 040 .ASCII /RS / 
001137 104 105 124 sASCII /DET/ 
001142 105 103 154 "ASCII. /ECT/ 
001145 105 104 040 ASCII /ED / 
001150 ~—«-101 106 124 ASCII] /AFT/ 
001153 105 122 +040 ASCII /ER / 
001156 102 114 101 "ASCII /BLA/ 
001161 123 126 111 “ASCII. /STI/ 
901164 116 107 000 .ASCII /NG/<00> 
001167 000 ASCII <00> 
1170 104 101 124 P.AAU: ASCII /DAT/ 
001173 «101 040 103 "ASCII. /A C/ 
001176 «114 117-108 “ASCII /LOC/ 
001201 113-040 102 "ASCII /K B/ 
001204 111 124 G40 "ASCII /IT / 
001307 «W106 101 111 "ASCII /FAI/ 
001212 114 105 104 "ASCII /LED/ 
001315 040 124 117 "ASCII. / TO/ 
001320 ~—s«-040 132 105 “ASCII 7 RE/ 
001223 123 105 124 "ASCII /SET/ 
001296 © 040—S—~—«*207 106 "ASCIL / AF/ 
001231 124 105 122 "ASCII /TER/ 
001234 040 120 199 "ASCI]. / PR/ 
001237, —s«W17 115 040 "ASCII. /OM / 
001242 127 122 111 “ASCIT  /WRI/ 
001245 134 105-000 "ASCII /TE/<00> 
001250 132 105 120 P.AAV: ASCII] /REP/ 
001253 114 101 103 "ASCIT  /LAC/ 
001256 105 040 101 “ASCII /E A/ 
001361 122 122 101 "ASCII /RRA/ 
1264 131 040 104 "ASCII. /Y D/ 
001367 101 124 101 "ASCII /ATA/ 
001272 ~—s- 040 115 117 "ASCII / MO/ 
001275 104 125 114 "ASCII /DUL/ 
001300 105 040 115 "ASCIL /E M/ 
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21-Apr-198 
ASCII /736/ 
ASCII /3/<00> 
P,AAW: .ASCII /MEM/ 
eASCII /ORY/ 
eASCII / ER/ 
eASCII /ROR/ 
ASCII /S S/ 
ASCII /TIL/ 
eASCII /L E/ 
ASCII /XiS/ 
-ASCII /T A/ 
ASCII /FTE/ 
-ASCII /R B/ 
-ASCII /LAS/ 
eASCII /TIN/ 
-ASCII /G/<00><00> 
P.AAX: .ASCII /UNE/ 
eASCII /XPE/ 
-ASCII] /CTE/ 
eASCII /D D/ 
eASCII /RIV/ 
ASCII /E E/ 
-ASCII /RRO/ 
-ASCII /RS / 
-ASCII /DET/ 
ASCII /ECT/ 
ASCII /ED/<00> 
-ASCII <00> 
P.AAY: .ASCII /0OCC/ 
ASCII /URE/ 
-ASCII /D D/ 
ASCII /URI/ 
-ASCII /NG / 
-ASCII /A M/ 
-ASCII /ASS/ 
-ASCII / BU/ 
eASCII /S R/ 
ASH /EAD/ 
-ASCI / TR/ 
-ASCII /ANS/ 
-ASCII /FER/ 
eASCII <00> 
P.AAZ: .ASCII /OCC/ 
ASCII /URE/ 
ASCII /D D/ 
ASCII = /URI/ 
-ASCII /NG / 
-ASCII /A M/ 
-ASCII /ASS/ 
ASCII -/ BU/ 
ASCII /S W/ 
eASCII /RIT/ 
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| BSKELS 
REV A PATCH 00 EXTENDED MESSAGE PRINTING SECTION 21-Apr-1981 08:19:06  PA:<NEALE>PMSKL4.BLI.1 (9) SEQ 0057 

/ 901532 105 040 124 -ASCII. /E T/ 

/ 001535 122 101 11 ASCII /RAN/ 

001540 123 106 105 ASCII] /SFE/ 

| 001543 122 000 000 ASCII /R/<00><00> 

, 001546 117 103 103 PABA: . ASCII /OCC/ 

| 001551 125 122 105 “ASCII = /URE/ 

| 001554 104 040 104 “ASCII. /D D/ 
001557 125 122 111 "ASCII = /URI/ 

| 001562 116 107 040 "ASCII /NG / 

| 001565 101 040 115 “ASCII. /A M/ 

| 001570 101 123 123 “ASCII /ASS/ 

| 001573 040 102 125 .ASCII / BU/ 

| 001576 123 040 127 “ASCII /S W/ 

| 001601 122 111 124 “ASCII /RIT/ 
001604 105 040 103 "ASCII. /E C/ 
001607 110 105 103 “ASCII = /HEC/ 
001612 113 040 124 "ASCII. /K T/ 
001615 122 101 116 "ASCII = /RAN/ 
001620 123 106 105 "ASCII /SFE/ 
001623 122 000 000 "ASCII /R/<00><00> 
001626 000 000 P.ABB: .ASCII <00><00> 
001630 045 124 045 P.ABC: ASCII /%T%/ 
007633 116 000 000 "ASCII. /N/<00><00> 
001636 045 124 045 P.ABD: ASCII /%T%/ 
001641 124 045 116 "ASCII. = /T%N/ 
901644 000 "ASCII. <00><00> 
001646 045 124 045 P.ABE: ASCII /%T%/ 
001651 124 045 124 "ASCII = /T%T/ 
601654 045 116 000 “ASCII. /%N/<00> 
001657 000 "ASCII. <00> 

| 001660 045 124 045 P.ABF: .ASCII /%T%/ * 
001663 124 045 124 “ASCII = /TRT/ 
001666 045 124 045 “ASCII. /%T%/ 
001671 116 000 000 ASCII /N/<00><00> 
001674 045 116 000 P.ABG: .ASCII /%N/<00> 
001677 000 “ASCII. <00> 
001700 045 116 045 P.ABH: ASCII /%N%/ 
001703 116 000 000 ASCII /N/<00><00> 
001706 045 124 045 P.ABI: ASCII /%T%/ 
001711 117 061 045 “ASCII. /01%/ 
001714 116 000 "ASCII. /N/<00> 
001716 045 124 045 P.ABJ: ASCII /%T%/ 
001721 117 045 “ASCII /06%/ 
001724 116 000 “ASCII. /N/<00> 
001726 045 124 045 P.ABK: ASCII /%1%/ 
001731 104 062 045 “ASCII. = /D2%/ 
001734 116 000 “ASCII = /N/<00> 
001736 045 101 104 P.ABL: .ASCII /%AD/ 
001741 122 111 126 ASCII /RIV/ 
001744 105 040 045 ASCII /E %/ 
001747 117 061 045 "ASCII /01%/ 
001752 101 040 123 “ASCII /A S/ 
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001755 105 114 105 eASCII /ELE/ 
001760 103 124 105 eASCII = /CTE/ 
001763 104 045 116 -ASCII] = /D&N/ 
001766 000 000 -ASCII = <00><00> 
001776 045 i23 045 P,ABM: ASCII] /%S%/ 
001773 123 045 123 eASCII = /S%S/ 
001776 045 123 045 eASCII /%S%/ 
002001 123 045 123 eASCII = /S%S/ 
002 045 123 045 eASCII /%S%/ 
002007 123 045 101 eASCII] = /S%A/ 
002012 124 105 123 -ASCII /TES/ 
002015 124 111 116 eASCII /TIN/ 
002020 107 040 101 -ASCII /G A/ 
002023 122 122 101 ASCII = /RRA/ 
002026 131 040 045 ASCII /Y_%/ 
002031 104 062 045 eASCII = /D2%/ 
002034 116 000 -ASCII /N/<00> 
002036 045 123 045 P.ABN: .ASCII /%S%/ 
002041 123 045 123 -ASCII /S%S/ 
002044 045 123 045 eASCII /%S%/ 
002047 123 045 123 eASCII = /S%S/ 
002052 045 123 045 -ASCII /%S%/ 
002055 123 045 123 eASCII /S%S/ 
0C2060 045 123 045 ASCII /%S%/ 
002063 123 045 123 eASCII /S%S/ 
902 045 123 045 eASCII /%S%/ 
002071 123 045 123 eASCII = /S%S/ 
002074 045 123 045 eASCII = /%S%/ 
002077 101 102 101 -ASCII = /ABA/ 
002102 116 113 045 eASCII  /NK%/ 
002105 123 045 123 -ASCII = /S%S/ 
002110 045 123 045 eASCII = /%S%/ 
002113 104 061 045 -ASCII /D1%/ 
002116 116 000 -ASCII /N/<00> 
002120 045 101 101 P.ABO: .ASCII /%AA/ 
002123 122 122 101 -ASCII = /RRA/ 
002126 131 045 123 eASCII /Y%S/ 
002131 045 104 062 ASCII = /%D2/ 
002134 045 123 045 eASCII /%S%/ 
002137 101 102 101 -ASCI] /ABA/ 
002142 116 113 045 eASCII = /NK%/ 
002145 123 045 117 -ASCII = /S%0/ 
002150 061 045 123 eASCII /1%S/ 
002153 045 101 102 -ASCII = /%AB/ 
002156 111 124 040 ASCII /IT / 
002161 043 045 123 eASCII] = /#%S/ 
062164 045 104 062 ASCII = /%D2/ 
002167 045 116 000 -ASCII = /%N/<00> 
002172 045 101 101 P.ABP: .ASCII /%AA/ 
002175 122 122 101 ASCII = /RRA/ 
22 131 045 123 ASCII = /Y2%S/ 
002203 045 104 062 eASCII = /%D2/ 
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2206 45 123 045 ASCII = /%S%/ 
002211 101 102 101 -ASCI] = /ABA/ 
002214 116 113 045 eASCI] = /NK%/ 
002217 123 045 117 ASCII = /$%0/ 
002222 061 045 123 ASCII =/1%S/ 
002225 045 101 116 ASCII /%AN/ 
002230 111 102 102 -ASCII = /1BB/ 
002233 114 105 045 ASCII /LE%/ 
2236 123 045 104 eASCII = /S%D/ 
002241 062 045 116 ASCII /2%N/ 
002244 000 000 -ASCII <00><00> 
002246 045 101 122 P.ABQ: .ASCII /%AR/ 
002251 105 120 114 -ASCII = /EPL/ 
002254 101 103 105 ASCII = /ACE/ 
002257 040 101 122 eASCII / AR/ 
002262 122 101 131 -ASCII = /RAY/ 
002265 040 115 117 -ASCII / MO/ 
002270 104 125 114 ASCII = /DUL/ 
002273 105 045 123 eASCII /EXS/ 
002276 045 104 062 ASCII /%D2/ 
002301 045 123 045 ASCII = /%S%/ 
002304 123 045 101 ASCII = /S%A/ 
002307 117 122 040 -ASCII] /OR / 
002312 122 105 122 -ASCII = /RER/ 
002315 125 116 040 -ASCII = /UN / 
902320 120 122 117 -ASCII /PRO/ . 
002323 107 122 101 eASCII = /GRA/ 
002326 115 045 116 ASCII = /M%N/ 
002331 000 -ASCII <00> 
002332 045 101 101 P.ABR: .ASCII /%AA/ 
002335 122 122 101 eASCII = /RRA/ 
234 131 045 123 ASCII = /Y%S/ 
002343 045 104 062 ASCII /%D2/ 
002346 045 123 045 ASCII = /%S%/ 
002351 101 102 101 -ASCII = /ABA/ 
002354 116 113 045 ASCII = /NK%/ 
002357 123 045 117 ASCII /S%0/ 
002362 061 045 116 ASCII = /1%N/ 
002365 000 -ASCII <00> 
002366 045 123 045 P.ABS: .ASCII /2%S%/ 
002371 123 045 123 ASCII = /S%S/ 
002374 045 123 045 ASCII = /%S%/ 
002377 101 115 114 ASCII /AML/ 
002402 103 123 061 ASCII = /CS1/ 
002405 045 123 045 ASCII = /%S%/ 
002410 123 045 123 ASCII = /S%S/ 
002413 045 123 045 ASCII = /%S%/ 
002416 123 045 123 ASCII = /S%S/ 
002421 045 123 045 ASCII = /%S%/ 
002424 123 045 123 ASCII = /S2%S/ 
002427 045 123 045 ASCII = /%S%/ 
0024 32 123 045 123 ASCII = /S%S/ 
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002435 045 123.045 ASCII /%S%/ 
002440 123045 123 TASCI]  /S%S/ 
0024463 = 045 123045 “ASCII /%S%/ 
002446 117, 066s TASCII © /06%/ 
002451 116 000 000 “ASCII /N/<00><00> 
002454 045 123045 P.ABT: ASCII /%S%/ 
002457 123045 123 TASCII  /S%S/ 
002462 045 123045 TASCII  /%S%/ 
002465 101 115 114 TASCIIT  /AML/ 
002470 127 103 045 TASCIT  /WO%/ 
002473 123045 123 TASCII  /S%S/ 
002476 045 123.045 TASCII « /%S%/ 
002501 123045 123 “ASCII /S%S/ 
25 045 123045 TASCII  /%S%/ 
002507 123045 123 TASCII]  /S%S/ 
002512 045 i2s Os TASCII  /%S%/ 
002515 123045 123 TASCII  /S%S/ 
002520 045 123 045 TASCII  /%S%/ 
002523 123045 123 TASCII  /S%S/ 
002526 045 123045 “ASCII /%S%/ 
002531 123045 117 “ASCII. /S%O/ 
2534 066 = 045 116 TASCII © /6%N/ 
002537 ~—«-000 ZASCII <00> 
002540 045 123.045 P.ABU: ASCII /%S%/ 
002543 123045 123 “ASCII /S%S/ 
902546 «045 123045 “ASCII /%S%/ 
002551 103 115 114 “ASCII = /AML/ 
002554 102 101 045 TASCII  /BA%/ 
002557 123045 123 TASCII /S%S/ 
002562 045 123045 TASCII  /%S%/ 
002565 123045 123 “ASCII /S%S/ 
002576 045 123045 TASCII  /%S%/ 
002573 123045 123 “ASCII /S%S/ 
002576 045 iz “ASCII /%S%/ 
002601 123045 123 SIASCII /S%S 
002604 045 123045 TASCII | /%S%/ 
2607 123,045 123 “ASCII /S%S/ 
002612 045 123045 TASCII | /%S%/ 
002615 123.045 117 “ASCII /S%O/ 
002620 066 = 045 116 TASCII  /6%N/ 
002623 —«-000 ---- TASCIT <00> 
002624 045 123045 P.ABV: cASCII /%S%/ 
002627 123045 123 TASCII /S%S/ 
002632 45 123 045 “ASCII /%S%/ 
002635 101 115 114 “ASCII /AML/ 
2640 104 101 045 TASCII = /DA%/ 
002643 123045 123 TASCII  /S%S/ 
002646 045 123045 “ASCII /%S%/ 
002651 123045 123 “ASCII /S%S/ 
002654 045 123 045 “ASCII /%S%/ 
002657 123045 123 TASCII  /S%S/ 
002662 «(045 1238 045 TASC] /%S%/ 
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002665 123 045 123 ASCII] = /S%S/ 
002670 045 123 045 ASCII = /%S%/ 
002673 123 045 123 ASCII /S%S/ 
002676 045 123 045 ASCII = /%S%/ 
002701 123 045 117 ASCII /S%0/ 
2704 066 045 116 ASCII = /6%N/ 
002707 000 ASCII <00> 
002710 045 123 045 P.,ABW: .ASCII /%S%/ 
002713 123 045 123 ASCII = /S%S/ 
002716 045 123 045 ASCII = /%5%/ 
002721 101 115 114 eASCII = /AML/ 
002724 103 123 062 ASCII /CS2/ 
002727 045 123 045 ASCII = /%S%/ 
002732 123 045 123 eASCII /S%S/ 
002735 045 123 045 ASCII = /%S%/ 
002740 123 045 123 ASCII = /S%S/ 
002743 045 123 045 ASCII = /%S%/ 
002746 123 045 123 ASCII /S%S/ 
002751 045 123 045 ASCII] = /%S%/ 
002754 123 045 123 ASCII = /S%S/ 
002757 045 123 045 «ASCII = /%S%/ 
002762 123 045 123 ASCII /S%S/ 
002765 045 123 045 ASCII = /%S%/ 
002770 117 066 045 ASCII 06%/ 
002773 116 000 000 -ASCII /N/<00><00> 
002776 045 123 045 P.ABX: .ASCII /%S%/ 
003001 123 045 123 ASCII = /S%S/ 
003004 045 123 045 ASCII /%S%/ 
003007 101 115 114 eASCII = /AML/ 
003012 104 123 045 ASCII /DS%/ 
003015 123 045 123 ASCII = /S%S/ 
003020 045 123 045 ASCII = /%S%/ 
3023 123 045 123 ASCII = /S%S/ 
003026 045 123 045 ASCII = /%S%/ 
003031 123 045 123 ASCII /S%S/ 
3034 045 123 045 ASCII = /%S%/ 
003037 123 045 123 ASCII = /S%S/ 
003042 ean ir. tee 045 ASCII /%S%/ 
3045 123 045 123 ASCII /S%S/ 
003050 045 123 045 ASCII] = /2%S%/ 
305 123 045 117 ASCII = /S%0/ 
003056 066 045 116 ASCII = /6%N/ 
3061 000 -ASCII <00> 
003062 045 123 045 P.ABY: .ASCII /%S%/ 
3065 123 045 123 ASCII = /S%S/ 
003070 045 123 045 ASCII = /%S%/ 
003073 101 115 114 ASCII /AML/ 
003076 105 122 045 ASCII /ERZ/ 
003101 123 045 123 ASCII /S%S/ 
003104 045 123 045 ASCII = /%S%/ 
003107 123 045 123 ASCII = /S%S/ 
003112 045 123 045 ASCII] = /%S%/ 
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003115 123 045 123 -ASCII  /S%S/ 
003120 045 123 045 -ASCII  /%S%/ 
003123 123 045 123 -ASCII] = /S%S/ 
003126 045 123 045 eASCII /%S%/ 
003131 123 045 123 eASCII /S%S/ 
0031 045 123 045 -ASCII /%S%/ 
003137 123 045 117 -ASCII /S%0/ 
003142 066 045 116 -ASCII  /6%N/ 
003145 000 -ASCII <00> 
003146 045 123 045 P.ABZ: .ASCII /%S%/ 
003151 123 045 123 -ASCII /S%S/ 
003154 045 123 045 eASCII /%S%/ 
003157 101 115 114 -ASCII /AML/ 
003162 101 123 045 -ASCII = /AS%/ 
003165 123 045 123 eASCII /S%S/ 
003170 045 123 045 eASCII = /%S%/ 
003173 123 045 123 eASCII /S%S/ 
003176 045 123 045 eASCII /%S%/ 
003201 123 045 123 eASCII /S%S/ 
3204 045 123 045 eASCII /%S%/ 
003207 123 045 123 -ASCII  /S%S/ 
003212 045 123 045 eASCII /%S%/ 
003215 123 045 123 -ASCII /S%S/ 
003220 5 123 045 eASCII  /2%S%/ 
003223 123 045 117 -ASCII /S%0/ 
903226 6 045 116 -ASCII = /6%N/ 
003231 000 «ASCII <0Q0> 
3232 123 045 P.ACA: .ASCII /%S%/ 
003235 123 045 123 eASCII /S%S/ 
003240 5 123 045 eASCII /%S%/ 
003243 101 115 114 eASCII /AML/ 
003246 115 122 045 -ASCII = /MR2/ 
003251 123 045 123 eASCII /S%S/ 
003254 045 123 045 eASCII = /%S%/ 
003257 123 045 123 -ASCII /S%S/ 
3262 045 123 045 eASCII /2%S%/ 
003265 123 045 123 -ASCII = /S%S/ 
003270 045 123 045 eASCII /%S%/ 
003273 123 045 123 eASCII = /S%S/ 
003276 045 123 045 eASCII = /%S%/ 
3301 123 045 123 eASCII] = /S%S/ 
003304 045 123 045 eASCII] /%S%/ 
003307 123 045 117 eASCII /S%0/ 
003312 066 045 116 «ASCII /6%N/ 
003315 000 -ASCII <00> 
003316 045 123 045 P.ACB: .ASCII /%S%/ 
332 123 045 123 -ASCII = /S%S/ 
003324 045 123 045 eASCII  /%S%/ 
003327 101 115 114 eASCII] = /AML/ 
33 104 124 045 eASCII = /DT%/ 
003335 123 045 123 eASCII = /S%S/ 
003340 045 123 045 eASCII = /%S%/ 
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003343 123 045 123 ASCII = /S%S/ 
3346 045 123 045 ASCII = /%S%/ 
003351 123 045 123 ASCII /S%S/ 
003354 045 123 045 ASCII = /%S%/ 
003357 123 045 123 ASCII /S%S/ 
3 045 123 045 ASCII = /%S%/ 
336 123 045 123 ASCII = /S%S/ 
003370 045 123 045 ASCII = /%S%/ 
003373 123 045 117 ASCII /S%0/ 
003376 066 045 116 ASCII /6%N/ 
003401 000 -ASCII <00> 
003402 045 123 045 P.ACC: .ASCII /%S%/ 
003405 -wlés 045 123 ASCII /S%S/ 
003410 045 123 045 ASCII /%S%/ 
003413 101 115 114 -ASCII = /AML/ - 
003416 123 116 045 ASCII /SN%/ 
003421 123 045 123 -ASCII /S%S/ 
003424 045 123 045 ASCII /%S%/ 
003427 123 045 123 ASCII = /S%S/ 
003432 045 123 045 ASCII = /%S%/ 
003435 123 045 123 -ASCII /S%S/ 
003440 045 123 045 ASCII = /%S%/ 
003443 123 045 123 ASCII. /S%S/ 
003446 045 123 045 ASCII = /%S%/ 
003451 123 045 123 ASCII /S%S/ 
903454 045 123 045 ASCII = /%S%/ 
003457 123 045 117 -ASCII /S%0/ 
003462 066 045 116 ASCII /6%N/ 
003465 000 -ASCII <00> 
003466 045 123 045 P.ACD: .ASCII /%S%/ 
003471 123 045 123 eASCII /S%S/ 
003474 045 123 045 ASCII /%S%/ 
003477 101 115 114 ASCII /AML/ 
003502 105 105 045 ASCII /EE%/ 
093505 123 045 123 ASCII = /S%S/ 
003510 045 123 045 ASCII = /%S%/ 
003513 123 045 123 ASCII /S%S/ 
003516 045 123 045 ASCII = /%S%/ 
003521 123 045 123 ASCII /S%S/ 
003524 045 123 045 ASCII /%S%/ 
003527 123 045 123 ASCII /S%S/ 
003532 045 123 045 ASCII = /%S%/ 
003535 123 045 123 ASCII = /S%S/ 
003540 045 123 045 ASCII /%S%/ 
003543 123 045 117 ASCII /S%0/ 
003546 066 045 116 ASCII /6%N/ 
003551 000 -ASCII <00> 
003552 045 123 045 P.ACE: .ASCII /%S%/ 
003555 123 045 123 ASCII /S%S/ 
35 045 123 045 ASCII = /%S%/ ~ 
003563 101 115 114 eASCII = /AML/ 
3 105 114 045 ASCII] = /EL%/ 
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123 045 123 ASCII /S%S/ 
045 123 045 ASCII /%S%/ 
123 045 123 ASCII /S%S/ 
045 123 045 ASCII = /%S%/ 
123 045 123 ASCII /S%S/ 
045 123 045 eASCII = /%S%/ 
123 045 123 ASCII /S%S/ 
045 123 045 ASCII /%S%/ 
123 045 123 ASCII /S%S/ 
045 123 045 ASCII = /%S%/ 
123 045 117 eASCII /S%0/ 
066 045 116 eASCII /6%N/ 
000 ASCII <00> 
045 123 045 P.ACF: .ASCII /%S%/ 
123 045 123 ASCII /S%S/ 
045 123 045 ASCII = /%S%/ 
123 045 123 ASCII /S%S/ 
045 123 045 ASCII = /%S%/ 
123 045 123 ASCII /S%S/ 
045 123 045 ASCII /%S%/ 
101 122 105 eASCII /ARE/ 
107 111 123 -ASCII /GIS/ 
124 105 122 -ASCII /TER/ 
040 040 104 eASCII / D/ 
125 115 120 -ASCII /UMP/ 
045 116 045 ASCII = /%N%/ 
116 000 000 ASCII /N/<00><00> 
045 123 045 P.ACG: .ASCII /%S%/ 
123 045 101 eASCII /S%A/ 
122 105 107 -ASCII /REG/ 
111 123 124 -ASCII /IST/ 
105 122 040 eASCII /ER / 
116 101 115 -ASCII /NAM/ 
105 045 123 ASCII /E%S/ 
045 123 045 ASCII = /%S%/ 
123 045 123 ASCII /S%S/ 
045 123 045 eASCII /%S%/ 
123 045 101 eASCII /S%A/ 
103 117 116 eASCII /CON/ 
124 105 116 -ASCII /TEN/ 
124 123 045 ASCII /TS%/ 
116 000 -ASCII /N/<00> 
000 000 P.ACH: .ASCII <00><00> 


-PSECT $OWN$, D 
COL.CNT.TBL: 
-BLKW 200 


REM.TBL:.BLKW 144 
COPIED.REM. TBL: 
-BLKW = =144 
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REV A PATCH 00 EXTENDED MESSAGE PRINTING SECTION 


026626 
026744 
026770 
036770 


C36772 
036774 


027010 
937012 
037014 
037016 
037020 
037022 
03702 

037026 
037030 
037032 
037034 


100000 


COL.PTR: .BLKW 
WRT .BUF : .BLKW 
RD.BUF: .BLKW 
ERROR.MAP: 

-BL 
CHIP. TBL: 

-BLKW 
TMP.BLST.TBL: 

-BLKW 
BLAST.TBL: 
COL .BASE: 


-BLKW 
ML .ADDR: .BLKW 
MAX. CHIP.COL: 


-BL 
INC.BNK: .BLKW 
INC.ARR: .BLKW 
ARR.SEL.POS: 


-BLKW 
BNK.SEL.POS: 
BLK 


EVEN 
FLG.REG: .BLKW 


1 
DEGRADE .MOD.REG: 
-BLKB 


SRC: -BLKW 

LST. TSTED.ARR: 
-BLKW 

RAND.PASS: 
-BLKW 


TOPS=20 Bliss-16 V2(212) age 32 
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21-Apr-19 


2 
oo 
Coco 
am 
woo 


RANGEN, SEEDI, SEED2, SEED3, RANDAT 
L$UNIT 


BSKELS 


REV A PATCH OO EXTENDED MESSAGE PRINTING SECTION 


010000 


SSESSSRCSSo—n~ 
=—NMIWENA NOOO 
puenrnneniw en we toe 
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ee tt tt Pees as ne Se nd at Bt Ce Bd Be Cee Od Bet Bt Be Oe Ome Os Ome 
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O—VWWE MNOS NWO 
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Ti | 


EF .START== 


PRIQ7== 


—NMIWSsw 
nruudtie 
nnnownh i tee 


SSRSRAS 


ADR 
IDU 


BZBonrnvnwnnnnonnnwnnwey 


3 
x 4 
wn 
Qa 
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8:40: 
8:19: 
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06 
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P 33 
SEO 0066 


BSKELS 
REV A PATCH 00 EXTENDED MESSAGE PRINTING SECTION 


003316" 


START .MSG= 
HQ.ERR.MSG= 
HQ.MSG= 

END .MSG= 
SUPRE S .MSG= 
RET.DRS.MSG= 
LUN.MISS.MSG= 
CUN.A.MSG= 


CON.D.MSG= 
UNC. CHIP.MSG= 
GTR.MSG= 
UNIT. SEL .MSG= 
SW.BUG.MSG= 
ABORT .MSG= 
NO.AD .MSG= 
UNC .ERR.MSG= 
TIME .QUT .MSG= 
REP .M7363.MSG= 


THREE .MSG= 
FOUR .MSG= 

LF= 

LFS= 
0.1.PRINT= 
0.6.PRINT= 
D.2.PRINT= 
DRV.SEL.PRINT= 
ARR.SEL.PRINT= 
BNK.SEL.PRINT= 
A.B.C.PRINT= 
A.B.N.PRINT= 
REP.PRINT= 
A.B.PRINT= 
CS1.PRINT= 
wC..PRINT= 
BA.PRINT= 
DA.PRINT= 
CS2.PRINT= 
DS.PRINT= 
ER.PRINT= 
AS.PRINT= 
MR.PRINT= 
DT.PRINT= 


C 6 
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:22 
9:06 


TOPS=20 Bliss-16 yerete? 


PA:<NEALE>PMSKL4.BLI.1 
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SEQ 0067 


000000 


000000 
000004 
C00006 


003402" 


: Routine Size: 


; Maximum stack 


nmr 
anil 
N 
ins) 


NOMEMGMPONGNGNNONNONM NPY NYP 


nl eel ed ed cad ad ed ed 
oo 
Ww 


162706 
012746 


000000V 


4 words 


depth per invocation: 


PRINTB 
PRINTB 
PRINTB 
PRINTB 
PRINTB 
PRINTB 
PRINTB 
PRINTB 
PRINTB 
PRINTB 
PRINTB 
PRINTB 
PRINTB 
PRINTB 
PRINTB 
ENDMSG; 


000032 
003636" 
000001 


003710" 
000001 


036772" 
000036 
002366" 
0600002 


(HEADER_ PRINT); 
(COL_DESC_PRINT); 


BSKEL4 
REV A PATCH 00 EXTENDED MESSAGE PRINTING SECTION 


SN.PRINT= 
EE.PRINT= 
EL.PRINT= 


HEADER.PRINT= 


a tae 


X.PRINT= 


-SBTTL 
-PSECT 


DUMPER: :JSR 
TRAP 
RTS 


0 words 


6 
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vuvvVvVU 
>rrrr> 
AOAAN00 
ramon 


TOPS=20 Bliss-16 V2(212) 
PA: <NEALE>PMSKL4.BLI.1 


a ES EXTENDED MESSAGE PRINTING SECTION 


$CODES 

PC ,.MSDUMPER 
23 

PC 


'PRINT THE HEADER 


'DESCRIBE THE COLUMN HEADINGS 
MLCS1 CONTENTS 


(CS1~PRINT, .ML_ADDR CMLCS1, ML_ALLJ); !PRINT 

(WwC_PRINT ADDR CMLWC, ML_ALLJ): ‘PRINT MLWC CONTENTS 

(BA_ PRINT. ML ~ADDR CMLBA, ML_ALLJ); 'PRINT MLBA CONTENTS 

(DA_PRINT, ADDR CMLDA, ML_ALLJ); ‘PRINT MLDA CONTENTS 

(CS? PRINT, .MC_ADDR CMLCS2, ML_ALLJ); ‘PRINT MLCS2 CONTENTS 

(DS_PRINT, ADDR CMLDS, ML_ALLJ); 'PRINT MLDS CONTENTS 

(ER_PRINT, .ML_ADDR CMLER, ML_ALL)); 'PRINT MLER CONTENTS 

(AS_PRINT, .ML_ADDR CMLAS, ML_ALLJ):; ‘PRINT MLAS CONTENTS 

(MR_PRINT, .ML_ADDR CMLMR, ML_ALLJ); ‘PRINT MLMR CONTENTS 

(DT_PRINT, ADDR CMLDT, ML_ALLJ); ‘PRINT MLDT CONTENTS 

(SN_PRINT, ADDR CMLSN, ML_ALLJ); ‘PRINT MLSN CONTENTS 

(EE_PRINT, .ML_ADDR CMLEE, rey 'PRINT MLEE CONTENTS 

(EL_PRINT, .ML_ADDR CMLEL, ML_ALLJ); ‘PRINT MLEL CONTENTS 
.SBTTL MS$DUMPER EXTENDED MESSAGE PRINTING SECTION 

MSDUMPER : 

SUB #32,SP : 
MOV MHEADER.PRINT,-(SP) : 
MOV #1,-(SP) 
MOV e Py SP. * 
TRAP 14 
MOV #COL.DESC.PRINT, (SP) : 
MOV #1,-(SP) 
MOV SP,RO : SP,* 
TRAP 1 

000036 MOV QML .ADDR, 36(SP) 7 *,ML.REG 
MOV 36(SP), (SP) : ML.REG,* 
MOV #CS1.PRINT,-(SP) 
MOV #2,-(SP) 


Pa 35 
SEQ 0068 


2171 


2171 
2172 


2173 


2174 


| BSKELS 
| REV A PATCH 00 


EXTENDED MESSAGE PRINTING SECTION 


036772" 
000002 
000040 
002454" 
000002 


036772" 


036772" 
000006 
000044 


002624" 
000002 


036772" 


036772" 
000012 


000050 
002776" 
000002 


036772" 


036772" 
oe 


00005 
003146" 
000002 


036772" 


000040 


000042 


000044 


000046 


000050 


000052 


000054 
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SP ,RO 
14 


ML .ADDR,RO 
2(RO) ,40(SP) 
40(SP5, (SP) 
#wC.PRINT,<(SP) 
#2,-(SP) 

SP,RO 

14 


ML.ADDR,RO 

4 (RO) ,42(SP) 
42(SP), (SP) 
#BA.PRINT,-(SP) 
#2,-(SP) 


#2,-(SP) 


14 
ML.ADDR,RO 
10(RO) ,46(SP) 
46(SP), (SP) 
#CS2.PRINT,-(SP) 
#2,-(SP) 

SP,RO 

14 

ML .ADDR,RO 
12(RO) ,50(SP) 
50(SP), (SP) 
#DS.PRINT,-(SP) 
#2,-(SP) 

SP,RO 

14 


ML .ADDR,RO 
14(RO) ,52(SP) 
52(SP). (SP) 
#ER.PRINT,-(SP) 
#2,-(SP) 

SP,RO 

14 

ML .ADDR,RO 

16 (RO) ,54(SP) 
54(SP) . (SP) 

WAS .PRINT,-(SP) 
#25 (SP) 


4 
Mi..ADDR RO 


TOPS=20 Bliss=16 v2(212) 
PA:<NEALE>PMSKL4.BLI.1 (9) 


; +.* 


*,ML.REG 
; ML.REG,* 


3; SP,* 


3; *,ML.REG 
; ML.REG,* 


s SP,* 


: *,ML.REG 
: ML.REG,* 


5 .* 


; *,ML.REG 
: ML.REG,* 


; >,* 


: *,ML.REG 
; ML.REG,* 


; .* 


: *,ML.REG 
: ML.REG,* 


; .* 


: *.ML.REG 
; ML.REG,* 


SP,* 


Pa 36 
SEQ 0069 


2175 


2176 


2177 


2178 


2179 


2180 


2181 


2182 


BSKELS 


REV A PATCH 00 


; Routine Size: 
3; Maximum stack 


EXTENDED MESSAGE PRINTING SECTION 


000024 000056 
000056 

003232" 

000002 

036772" 

ais is} 000060 


003316" 
000002 


036772" 
000030 000062 


036772" 
000042 000064 
000064 


006 
003466" 
000002 
036772" 
000044 000066 
000066 
003552" 
000002 
000124 


184 words 


depth per invocation: 


6 
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24(RO) ,56(SP) 
56(SP), (SP) 

#MR PRINT, =(SP) 
#2,-(SP) 

SP,.RO 


ML .ADDR ,RO 
26(RO) ,60(SP) 
60(SP) , (SP) 
#D7.PRINT,=(SP) 
#2,-(SP) 


ML .ADDR ,RO 
30(RO) ,62 (SP) 
62(SP) , (SP) 
#SN.PRINT,-(SP) 
#2,-(SP) 

SP,RO 

14 

ML .ADDR,RO 
42(RO), 64 (SP) 
64(SP), (SP) 
WEE. PRINT, -(SP) 
#2,-(SP 

SP,RO 

14 

ML.ADDR,RO 
44(RO) ,66(SP) 
66(SP), (SP) 
#EL.PRINT,-(SP) 
#2,-(SP) 

a 


4 
#124,SP 
PC 
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*,ML.REG 
ML.REG,* 


SP,* 


; *,ML.REG 


ML.RFG,* 


SP,* 


*,ML.REG 
ML .REG,* 


SP,* 


*,ML.REG 


; ML.REG,* 


SP,* 


*,ML.REG 
ML.REG,* 


5 +," 


Pa 37 
sE0°0070 


2183 


2184 


2185 


2186 


2171 


BSKELS 
REV & PATCH 00 


nm 
~ 
co 


RINMGININGNMGNMGNMSHPUN NOP 

lt el el el el a ed ae ed 

SZLRLALASLES 
COnNAUEWR—OOC®m 


Be ee Oe BH Be Be Oe FH He Oe Oe Oe FH He SHE Oe Oe He He Be He HHH HHS He He Oe wy 
las) 
Nm 
oO 
w 


004167 


; Routine Size: 


ROUTINE DECLARATIONS 


%sbttl "ROUTINE DECLARATIONS* 


routine GEN_RANDOM_DATA : 


begin 


novalue = 


G 6 
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FUNCTIONAL DESCRIPTION: GENERATE RANDOM DATA 
THIS ROUTINE WILL GENERATE A WRITE BUFFER 


local 
OFFSET; 


WRT_BUF + %0'0' 
WRT_BUF + Zo'2' 
WRT_BUF + %0°4* 
OFFSET = %0'6'; 


incr WRD_CNT from 4 to (128 + 511*2) do 


RANGEN (); 
BREAK; 


OF RANDOM DATA 


THE ROUTINE TO ACTUALLY 


GENERATE THE RANDOM NUMBER IS A GLOBAL MACRO 
ROUTINE LINKED AT LINK TIME. 


WRT BUF + OFFSET = .RANDAT; 
OFFSET = .OFFSET + 2; 


end; 


end; 


000000G 


0060006 001232" 
000000G 001234" 
0000006 001236" 


000006 
000004 
0000 


00G 


0000006 001232" 
000002 


002176 


t 28 words | 
; Maximum stack depth per tnvocation: 


. SBTTL 


GEN.RANDOM. DATA: 
J 


1$: JSR 


3 words 


‘OFFSET VARIABLE INTO WRITE BUFFER 
‘INITIAL SEED1 TO WRITE BUFFER + 0 
!INITIAL SEED2 TO WRITE BUFFER + 2 
‘INITIAL SEED3 TO WRITE BUFFER + 4 
!ADJUST OFFSET BY 6 

!LOAD 768 WORDS WITH RANDOM DATA 
'GENERATE THE RANDOM NUMBER 


‘WRITE BUFFER + OFFSET GETS THE RANDOM NUMBER 
!BUMP THE OFFSET BY 2 


GEN.RANDOM.DATA ROUTINE DECLARATIONS 


R1,$SAVE2 é 
SEED1,WRT.BUF : 

SEED2, WRT .BUF +2 5 

SEED3, WRT .BUF +4 3 

#6,R1 3; * OFFSET 
#4,R2 : *,WRD.CNT 
enna ; 

RANDAT , WRT .BUF (R17) : *,* (OFFSET) 
#2,R1 : *, OFFSET 
R2 ; WRD.CNT 
R2,42176 ; WRD.CNT,* 
1% 

PC 3 


TOPS=20 Bliss=-16 V2(212) 
PA:<NEALE>PMSKL4.ALI.1 


a 38 
SEQ 0071 


—————eeeEeEeEeEeEeEeEeEeEEeEeEeEeeEeEeEeEeEeEeEeEeEeEeEeEeEEE eee ee 
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BSKELS 39 
REV A PATCH 00 ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 PA: <NEALE>PMSKL4.BLI.1 (11) SEQ 0072 
3 2219 routine DM_RD_TRANSFER (SIZE, DST, SRC) : novalue = 
; 2220 begin 
; 2221 
3 PS) Me 
: $557 FUNCTIONAL DESCRIPTION: DIAGNOSTIC READ TRANSFER 
; 22e5 |! THIS ROUTINE WILL PERFROM A DIAGNOSTIC 
: 2226 3! MODE READ TRANSFER AT THE DESIGNATED 
: $555 SOURCE AND DESTINATION ADDRESSES. 
; e229 |! FORMAL PARAMETERS: 
: 2230 ! SIZE: 
; gest 3 SPECIFIES THE SIZE OF THE TRANSFER 
; 2232 ! DST: 
5 oe DISTINATION ADDRESS OF TRANSFER 
; i+, aa SRC: 
4 y+ SOURCE ADDRESS OF TRANSFER 
; 22% i= 
g 2237 —— 
; 2238 CLR_MBUS; 'CLEAR THE MASS BUS 
4 2239 DAT_DM (ENABE) ; 'ENABLE DATA DIAG MODE 
; 2240 WRT_RH (MLCS2, DRV_SEL, .ML_DUT); 'SELECT THE DIVICE UNDER TEST 
; 224) WRT_RH (MLWC, WC_REG, .SIZE); 'LOAD THE TRANSFER SIZE 
é 2242 WRT_RH (MLDA, DA_REG, .SRC); 'LOAD THE TRANSFER SOURCE ADDRESS 
; 2243 WRT_RH (MLBA, BA_REG, .DST); 'LOAD THE TRANSFER DESTINATION ADDRESS 
$ 2244 WRT_RH (MLCS1, FUNC, FUNC_4); 'LOAD A READ FUNCTION WITH GO SET 
; 2245 end; 
__,SBTTL DM.RD. TRANSFER ROUTINE DECLARATIONS 

000660 010146 DM.RD. TRANSFER: 

MOV R1,-(SP) ; 2219 
000662 016700 036772" MOV ML.ADDR,RO $ 2220 
000666 016046 000010 MOV 10(RO) ,-(SP) : L.REG 
000672 011601 MOV (SP) ,R1 : mi. mReG, MLREG 
000674 152701 000040 BISB #40,R1 : *,MLREG 
000700 016700 036772' MOV ML. ADDR, RO 
000704 010160 000010 MOV R1, 10(RO) ; MLREG,* 
000710 016700 036772" MOV ML. ADDR, RO 
000714 016046 000010 MOV 10(RO) ,-(SP) : *,ML.REG 
000720 011601 MOV (SF) ,R1 ; ML.REG,MLREG 
000722 016700 036776" MOV Mi .DUT,RO 
000726 042700 177770 BIC #177770,R0 
000732 142701 000007 BICB #7,R1 : *,MLREG 
000736 050001 BIS RO,R1 : *,MLREG 
000740 016700 036772' MOV ML .ADDR ,RO 
000744 010160 000010 MOV R1,10(RO) : MLREG,* 
000750 016700 036772" MOV ML .ADDR,RO : e239 
000754 016046 000024 , , MOV 24(RO) , = (SP) >: *.ML.REG 
000760 011601 MOV (SP) ,R1 : ML.REG,MLREG 
000762 152701 000010 BISB #10,R1 : *.MLREG 


000766 016700 036772° MOV Mi .ADDR RO 





BSKELS 
— REV A PATCH 00 


900772 010160 
| 900776 016700 


001162 000207 


Routine Size: 
> Maximum stack 


nix 8888 83 =) 
— — —_ 

= oo 

YI 

OR 

oOo 

_— 

on 

=N 

38 


I 6 
21-Apr-1981 


ROUTINE DECLARATIONS 21-Apr-1981 
000024 MOV R1,24(RO) 
036772" MOV ML .ADDR,RO 
000010 MOV 10(RO) ,-(SP) 

MOV (SP) ,RI1 
036776' MOV ML .DUT,RO 
177770 BIC #177770,RO 
000007 BICB = #7,,R1 

BIS RO,R1 
036772" MOV ML .ADDR,0 
000010 MOV R1,10(RO) 
036772" MOV ML .ADDR,RO 
000002 MOV 2(RO) ,-(SP) 
000022 MOV 22(SP),R1 
036772" MOV ML.ADDR,RO 
000002 MOV R1,2(RO) 
036772" MOV ML .ADDR,RO 
000006 MOV 6(RO) ,-(SP) 
000020 MOV 20(SP),R1 
036772" MOV ML.ADDR,RO 
000006 MOV R1,6(RO) 
036772" MOV ML .ADDR,RO 
000004 MOV 4(RO) ,- (SP) 
000024 MOV 24(SP),R1 
036772" MOV ML .ADDR,RO 
000004 MOV R1,4(RO) 
036772" MOV aML .ADDR,-(SP) 

MOV (SP) +,RO 
000077 BICB #77,R0 
0000 BISB ss #51, 
036772" MOV RO, aML.ADDR 
000016 ADD #16,SP 

MOV (SP)+,R1 

RTS PC 

98 words 


depth per invocation: 10 words 


E 


08: 
08:19: 


40: 


TOPS=20 Bliss-16 V2(2 
PA: <NEALE>PMSKL4 .BL 


MLREG,* 
*,ML.REG 

ML .REG,MLREG 
* ,.MLREG 

* ,MLREG 
MLREG,* 
*,ML.REG 
SIZE,M_LREG 
MLREG,* 


; *,ML.REG 
; SRC,MLREG 


MLREG,* 


* ,ML.REG 
DST.MLREG 


MLREG,* 
*,ML.REG 

ML .REG,MLREG 
* .MLREG 

* ,MLREG 


; MLREG,* 


Pa 40 
SEQ-0073 


2240 


2242 


2243 


2244 


2219 





' 8 


Be Be Be Be Be He He He Be Ge Be Ge Fe Ge Se Be Ge Be He He 


| BSKELS 
REV A PATCH 00 


ROUTINE DECLARATIONS 


routine DM_WRT_TRANSFER (SIZE, DST, SRC) 


begin 


++ 


J 6 
21-Apr-1981 08:40:22 TOPS=20 Bliss=-16 V2(212) 
21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI.1 (12) 
: novalue = 


FUNCTIONAL DESCRIPTION: DIAGNOSTIC MODE WRITE TRANSFER 


CLR_MBUS; 


i) 
= 


ENABE 
WRT_RH (MLCS2 
WRT_RH (MLWC, WC_REG, .SI 


DST: 


: 

i FORMAL PARAMETERS: 
: SIZE: 
SRC: 


Fe 
. DRV_SEL. -ML 


THIS ROUTINE WIL 


L PERFORM A DIAGNOSTIC 


MODE WRITE TRANSFER AT THF DESIGNATED 


SOURCE AND DESTI 


NATION ADDRESSES. 


SIZE OF THE TRANSFER 
DESTINATION ADDRESS OF THE TRANSFER 
SOURCE ADDRESS OF THE TRANSFER 


DUT); 
Ze); 


WRT_RH (MLDA, DA_REG, .DST); 
WRT_RH (MLBA, BA_REG, .SRC); 
WRT_RH (MLCS1, FUNC, FUNC_5); 


036772" 
000910 


000040 
036772" 


000010 
036772" 
000010 
036776" 
177770 
000007 
036772" 
000010 
036772" 
000024 


000010 
036772" 


. SBTTL 
DM.WRT. TRANSFER: 
V 


'CLEAR THE MASS BUS 

'ENABLE DATA DIAG MODE 

'SELECT THE DIVICE UNDER TEST 
'LOAD THE TRANSFER SIZE 

'LOAD THE DESTINATION ADDRESS 
'LOAD THE SOURCE ADDRESS 

'LOAD A WRITE FUNCTION WITH GO SET 


DM.WRT. TRANSFER ROUTINE DECLARATIONS 
R1,~(SP) 


ML. ADDR, RO : 

10(RO) ,-(SP) > *,ML.REG 
(SP) Ri > ML.REG,MLREG 
#40,R1 + *,MLREG 

ML .ADDR,RO 

R1,10(RO) : MLREG,* 

ML . ADDR, RO 

10(RO) ,-(SP) : *,ML.REG 
(SP) Ri > ML.REG,MLREG 
ML .DUT,RO 

#177770,RO 

#7,R1 ; *,MLREG 
RO.R1 > *,MLREG 

ML .ADDR,RO 

R1,10(RO) : MLREG,* 

ML ADDR ,RO : 

24 (RO) ,-(SP) > *,ML.REG 
(SP) Ri. + ML.REG,MLREG 
#10,21 > * MLREG 


ML .ADDR,RO 


Page 41 
SEQ 0074 


2246 
2247 


<264 


———— 


K 6 
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| BSKELG 1 08:40:22  TOPS=20 Bliss=16 v2(212) Page 42 | 
REV A PATCH 00 ROUTINE DECLARATIONS 51-Apr-1981 08:19:06  PA:<NEALE>PMSKL4.BiI.1 (12) SEQ 0075 | 
001276 010160 000024 Mov —sR1,24( RO) ; MLREG,* | 
001302 016700 036772" MoV -—s ML. ADDR, RO : 2267 | 
001306 016046 000010 Mov —-10(RO) ,=(SP) = *,ML.REG | 
001312 011601 MOV (SP) ,Ri > ML.REG,MLREG | 
001314 016700 036776" MoV —- ML, DUT, RO 
001320 042700 177770 BIC —-#177770,R0 

001324 142701 090007 BICB «#7, : *,.MLREG 

001330 050001 BIS _—RO.R1 > */MLREG 

001332 016700 036772" MOV —s ML. ADDR, RO 


001356 016700 036772" MOV ML .ADDR ,RO 
001362 000002 (RO) MLREG,* 
1366 016700 036772" MOV ML .ADDR ,RO 
001372 016046 000006 MOV 6(RO) ,=(SP) *,ML.REG 
001376 016601 000022 MOV 22(SP) ,R1 DST ,MLREG 
001402 016700 036772" MOV ML .ADDR ,RO 
001406 €10160 000006 MOV R1,6(RO) MLREG,* 
*,ML.REG 
; SRC,MLREG 


001412 016700 036772" MOV ML ADDR, RO 
001416 016046 000004 MOV 4(RO) ,-(SP) 
001432 010160 000004 MOV R1,4(RO) ; MLREG,* 
001442 012600 MOV (SP) +,RO 
7,RO 


2269 


2270 


; *,ML.REG 2271 
; ML.REG,MLREG 

; *,MLREG 

; *,MLREG. 
; MLREG,* 


g 
+ 
* 
* 
—_ 
* 
tw 
s 
3 
N 
N 
@ 
— 
a 
@ 
® 
N 
. 


#16,S 2246 
001464 012601 MOV Bal 


: Routine Size: 98 words 


001336 010160 000010 MOV R1,70(RO) ; MLREG,* 

001342 016700 036772" MOV ML.ADDR,RO é 2268 
001346 016046 000002 MOV 2(RO) ,-(SP) ; *,ML.REG 

001352 016601 000022 MOV 22(SP),R1 : SIZE,.MLREG 

: Maximum stack depth per invocation: 10 words 


001474 


ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI.1 (13) SEQ 0076 


L 6 | 
21-Apr-1981 08:40:22 TOPS=20 Bliss-16 V2(212) Page 43 


2273 ~routine DM_RAND_LOAD (TEMP_ARRSBNK_SEL) : novalue = 


2274 begin 
2275 
2276 i +t 
e377 ! FUNCTIONAL DESCRIPTION: DIAGNOSTIC MODE RANDOM DATA LOAD | 
eery tf THIS ROUTINE WILL LOAD VIA DIAGNOSTIC MODE 
2280 |! RANDOM DATA TO THE DESIGNATED ARRYA AND BANK | 
2281 =! SELECTED BY THE TEMP ARRAY AND BANK SELECT 
2282 =! ARGUMENT. | 
2283 =! 
2284 |' FORMAL PARAMETERS: 
2285 =! TEMP_ARR$BNK_SEL | 
2286 =! THIS ~ ARGUMENT STORES THE SELECTED ARRAYS 
2287 =! ARRAY SELECT NUMBER AND THE SELECTED ARRAYS 
2288 =! BANK SELECT NUMBER. 
2289 =! 
2290 
2291 cal 
2292 S_BUF_INDEX, 'START BUFFER INDEX POINTER 
Sser BUF _ INDEX; 'BUFFER INDEX POINTER 
2295 GEN_RANDOM_DATA (); 'GENERATE A WRITE BUFFER WITH RANDOM DATA 
2296 S_BUF_INDEX = ZERO: 'THE FIRST SECTOR STARTS AT WRITE BUF WORD ZERO 
2297 BUF _INDEX = .S_BUF NDEX 'BUF INDEX WILL GET 128 RANDOM DATA WORDS 
Sse8 DM_WRT_ TRANSFER isTze “256, DST = .TEMP_ARRSBNK_SEL, SRC = WRT_BUF); 
2300 incr SEC CNT from 0 to .BNK_NUM_SEC do 'LOAD ALL SECTORS IN BANK WITH RANDOM DATA 
eqgin 
tt BREAK; 
Sooe incr WO. CNT from 0 to 127 do 'LOAD ALL WORDS IN SECTOR WITH RANDOM DATA 
egin 
2306 WRT_RH (MLD1, DB1_REG, .WRT_BUF C.BUF_INDEX, WRD]); !LOAD DATA REG 1 
2307 WRT_RH (MLD2, DB2_ REG. .WRT BUF £.8UF~INDEX, WRDJ); !LOAD DATA REG 2 
2308 ee (MLE2, E2_REG, .wRT_BuF (.BUF INDEX. WRDJ): '!LOAD DATA REG 3 
2309 DAT_CLK TCLOCK THE RANDOM DATA INTO THE ML-11 LONG WORD 
2310 BUF~INDEX = .BUF_INDEX + ONE; 'GET THE NEXT RANDOM DATA WORD 
$312 —_ 
2313 S_BUF INDEX = .S_BUF_INDEX + 2; 'START THE NEXT SECTOR 2 WORD DEEPER 
2314 BUF_INDEX = .S “BUF _ INDEX; 'BUF INDEX WILL GET 128 MORE RANDOM DATA WORDS 
21 Ee Nee 
2317 CLR_MBUS; 'CLEAR THE SINGLE STEP DMA MODE 
2318 end; 
.SBTTL DM.RAND.LOAD ROUTINE DECLARATIONS 
001470 004167 0000006 DM. RAND.LOAD: 
JSR R1,$SAVE5 : 2273 
162706 0600020 SUB #20,SP 


| BSKELS 


177064 


036772" 
000036 


001232" 


036772" 
000036 
036772" 
000040 
036772" 
000040 
036772" 
000034 
036772" 
000034 
Pe hh 


036772" 
000010 
0600014 


000010 


000024 


000022 


000020 


000016 


000010 


000014 


2$: 


3$: 


M 6 
21-Apr-1981 
21-Apr-1981 


nn 


R4 

#-400,-(SP) 
(SP) ,SIZE 
40(SP) ,-(SP) 
(SP) ,DST 
AWRT .BUF ,=(SP) 
(SP) ,SRC 


PC,DM.WRT. TRANSFER 
BNK .NUM.SEC,10(SP) 


6 (SP) 
3$ 
22 
R 


0 
ML .ADDR,R3 
tr” sDeepimmale 


(R1) ,R2 
ML.ADDR,R3 
R2,40(R3) 

ML .ADDR,R3 
34(R3) ,20(SP) 
(R1),R2 
ML.ADDR,R3 
R2, 34(R3) 

ML .ADDR,R3 
24(R3), 16(SP) 
16(SP) .R2 
#20,R2 
ML.ADDR,R3 
R2,24(R3) 

R4 


08 
08 


TOPS=20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (13) 


‘» 
" 
. 


; S.BUF. INDEX 
; BUF . INDEX 


TEMP. ARRSBNK.SE,* 


SEC.CNT 


WRD. CNT 


* ,ML.REG 
BUF . INDEX,* 


* ,MLREG 
MLREG,* 


*,ML.REG 
* ,MLREG 


MLREG,* 


*,ML.REG 
* ,MLREG 


; MLREG,* 


*,ML.REG 
ML .REG,MLREG 


* ,MLREG 


*,S.BUF . INDEX 

S.BUF . INDEX ,BUF . INDEX 
SEC.CNT 

SEC.CNT,* 


; *,ML.REG 
> ML.REG,MLREG 


Pa 44 
SEQ°0077 


2301 
2 


2307 


; Routine Size: 


036772" 
000010 
000026 


126 words 


; Maximum stack depth per invocation: 


17 words 


N 6 
21-Apr-19 
21-Apr-19 


#40,R2 


ML .ADDR,R3 
10(R3),12(SP) 
12(SP) -R2 
ML.DUT,R5 
#177770,R5 
#7 ,R2 

R5,R2 

ML. ADDR,R3 
R2,10(R3) 
#26, 

PC 


TOPS=20 Bliss-16 V2(212) 
PA: <NEALE>PMSKL4.BLI.1 (13) 


* ,MLREG 
MLREG,* 


*,ML.REG 
: ML.REG,MLREG 


* ,MLREG 


: *,MLREG 


MLREG,* 


Page 45 
SEQ 0078 
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aa 
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w 
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oo 


¥E 


MoMaNoNoNunoNMngsnononon 
EXELEEEE 
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40:22 TOPS=2) Bl iss-16 ye(212) Page 46 
ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 PA: <NEALE>PMSKL4.BLI.1 (14) SEQ 0079 
rout ‘ne OM. TLO_LOAD (TEMP_ ARRSBNK_SEL, DATA) : novalue = 
begin 
ioe 
: FUNCTIONAL DESCRIPTION: DIAGNOSTIC MODE LOAD ONES AND ZEROES DATA 
i THIS ROUTINE WILL LOAD VIA DIAGNOSTIC MODE ' 
ONES OR ZEROES ** THE CONTENTS OF DATA ** TO 
' THE DESIGNATED ARRAY AND BANK SELECTED BY 
' TEMP ARRAY BANK SELECT ARGUMEN 
i FORMAL PARAMETERS: 
' TEMP _ARRSBNK _SEL 
' THIS ~ ARGUMENT STORES THE SELECTED ARRAYS ARRAY 
' SELECT NUMBER AND THE SELECTED ARRAYS BANK SEL- 
wits ECT NUMBER. 
i "THIS ARGUMENT CONTAINS THE SELECTED DATA PATTERN 
: TO BE WRITTEN THE THE ARRAY AND BANK SELECTED BY 
ARRAY BANK SELECT. 
'SINGLE STEP DMA WRITE MODE 
DM_WRT_TRANSFER (SIZE = ~256. (DST = .TEMP_ARRSBNK SEL, SRC = wRT_BUF ) 
wRT_RH (MLD1, DB1_REG, .DATA LOAD DATA REG 1 WITA DATA 
wRT “es (MLD2, DB2_REG. PATAD: LOAD DATA REG 2 WITH DATA 
WRT-RH (MLE2, E2_REG, .DATA); ‘LOAD DATA REG 3 WITH DATA 
incr SEC_CNT from 0 to .BNK_NUM_SEC do 'LOAD ALL SECTORS IN BANK WITH DATA 
incr WRD CNT from 0 to 127 do ‘LOAD ALL WCRDS IN SECTOR WITH DATA 
DAT_CLK; ‘CLOCK THE DATA INTO THE ML-11 
incr WRD_CNT from 0 to (127 + 511*2) do 'FILL THE WRITE BUFFER UP WITH DATA 
WRT _BuF C.WRD_CNT, WRD] = .DATA; 
CLR_MBUS; ‘CLEAR THE SINGLE STEP DMA MODE 
end; 
.SBTTL DM.1.0.LOAD ROUTINE DECLARATIONS 
0000006 DM.1.0.LOAD: 
JSR R1,$SAVE5 : 2319 
14 SUB #14,5P 
177400 MOV 4-400,-(SP) : 2342 
037024" MOV (SP),SIZE 
36 MOV 36 (SP) ,-(SP) : TEMP. ARRSBNK.SE,* 
037026" MOV (SP) ,DST 
1232" MOV #WRT BUF ,-(SP) 
037030" MOV (SP), SRC 
177034 JSR PC,DM.WRT. TRANSFER 
036772" MOV ML ADDR ,R1 : 2343 


| 
| 


BSKEL4 
REV A PATCH 00 





ROUTINE DECLARATIONS 
000036 000020 
000040 


036772" 
000036 
036772" 
000040 000016 
036772" 


036772 
000034 000014 
036772" 


000034 
037014" 


036772". 
000024 000012 
000012 

000020 

036772" 

000024 

000177 


001232" 
002175 
036772" 
000010 000010 
000010 
000040 
036772" 
000010 
036772" 
000010 
00 


0006 
036776" 
177770 
000007 


000006 


036772" 
000010 
000022 


1$: 


3$: 


43: 


21 a 198 
- fre 
21-Apr-198 


MOV 36(R1),20(SP) 
MOV 40(SP).R5 
R5,RO 
MOV ML.ADDR,R1 
MOV RO, 36(R1) 
ML.ADDR,R1 
MOV 40(R1),16(SP) 
MOV ML.ADDR,R1 
MOV RO,40(R1) 


MOV ML .ADDR ,R1 

MOV 34(R1),14(SP) 
MOV ML.ADDR ,R1 

MOV RO,34(R1) 

MOV BNK .NUM.SEC,R4 
CLR R3 

BR 3$ 

CLR 

MOV 


ML .ADDR ,R1 
MOV 24(R1),12(¢SP) 
MOV 12(SP) ,RO 


BISB #20,RO 
MOV ML .ADDR,R1 
MOV RO,24(R1) 
INC R2 

CMP R2,4177 
BLE 2$ 

INC R3 

CMP R3,R4 
| ae: 

CLR RO 

MOV RO,R1 


R1 
MOV ta ca 
CMP RO,#2175 

4$ 


MOV ML.ADDR,R1 
MOV 10(R1),10(SP) 
MOV 10(SP) ,RO 
#40,R0 
ML.ADDR,R1 
MOV RO,10(R1) 
MOV ML.ADDR,R1 
MOV roe 


MOV 6(SP), 

V ML .DUT,RS5 
BIC #177770,R5 
BICB  ~—- #7, RO 
BIS R5.RO 
MOV ML .ADDR,R1 


MOV RO.10(R1) 
ADD #22,SP 


TOPS=20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (14) 


; *,ML.REG 
; DATA,* 
: *,MLREG 
; MLREG,* 
: *,ML.REG 
; MLREG,* 
; *,ML.REG 
; MLREG,* 
3; SEC.CNT 
; WRD.CNT 
*,ML.REG 
: ML.REG,MLREG 
: *,MLREG 


: SEC.CNT 
3; SEC.CNT,* 


; WRD.CNT 
; WRD.CNT,* 


; WRD.CNT 
; WRD.CNT,* 


* ,ML.REG 
ML.REG,MLREG 
* ,MLREG 
; MLREG,* 


* ,ML.REG 
; ML.REG,MLREG 
; *,MLREG 


; *,MLREG 
; MLREG,* 


Pa 47 
SEQ 0080 


2344 


2345 


2347 


2349 


2347 


235 
235 


2352 


2353 


2319 


ks RS Ue eee ee eA xs 


Dd 7 
| BSKELS 21-Apr-198 
| REV A PATCH 00 ROUTINE DECLARATIONS 21-Apr-198 


002432 000207 | RTS PC 


3 Routine Size: 116 words. , 
: Maximum stack depth per invocation: 15 words 


a 
oo 
o@o.0o 
—S 
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:22 TOPS=20 Biiss=-16 V2(212) Page 48 
6 PA:<NEALE>PMSKL4.BLI.1 (14) SEQ 0081 


. ¢ 
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/ REV A PATCH 00 ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI.1 (15) SEQ 0082 


2357 routine WRT_CHK_TRANSFER (SIZE, DST, SRC) : novalue = 
2358 begin 


2360 14+ 
FUNCTIONAL DESCRIPTION: WRITE CHECK TRANSFER 


THIS ROUTINE WILL PERFORM A WRITE CHECK TRANSFER 
AT THE DESIGNATED SOURCE AND DESTINATION ADDRESS. 


ee ee ee ee ee ee ee 
Nm 


FORMAL PARAMETERS: 

sey STORES THE SIZE OF THE TRANSFER 

STORES THE DESTINATION ADDRESS OF THE TRANSFER 
STORES THE SOURCE ADDRESS OF THE TRANSFER 


DST: 
SRC: 


Seer tee 
nm 
Ww 
Oo 
Go 


2375 CLR_MBUS; 'CLEAR THE MASS BUS 
2376 ECC_DIS (ENABE ) ‘DISABLE ERROR CORRECTION 
RT_RH (MLCS2, bRV SEL, .ML_DUT); ‘SELECT THE DIVICE UNDER TEST 
2378 WRTTRH (MLWC, WC_REG, .SIZE); 'LOAD THE TRANSFER SIZE 
“RH (MLDA, DA_REG, .DST); ‘LOAD THE DESTINATION ADDRESS 
2380 WRT_RH (MLBA, BA_REG, .SRC); 'LOAD THE SOURCE ADDRESS 
2381 WRTTRH (MLCS1, FUNC, FUNC_4); 'LOAD A WRITE CHECK FUNCTION WITH GO SET 


ADDR C[MLCS1, SCJ 'DOES THE TRANSFER CAUSE A SC ERROR 
2385 begin 


2387 if not .ML_ADDR C[MLCS2, wCEJ 'WE EXPECT THE WRITE CHECK BIT TO BE SET 
2388 then 


2390 zt hy (ERR_13, UNX_DRV_ERR_MSG, DUMPER); 'REPORT THE UNEXPECTED ERROR 
2391 PRINTB (ONE MSG, WT_CHK_XFER MSG); PRINT WHAT TRANSFER CAUSED THE ERROR 
2392 DODU (.L$UNTT); 'DROP THIS UNIT 

2393 DOCLN; ‘JUMP TO THE CLEAN UP CODE 

2394 end; 


2396 end: 
cos do 0 'DELAY FOR TRANSFER TO COMPLETE 
until .ML_ADDR CMLDS, DRY); 
2402 if .ML_ADDR CMLCS1, SCJ 'DID THE TRANSFER CAUSE A SC ERROR 
2403 then 
2404 begin 
: 2406 if not .ML_ADDR [MLCS2, wCE] ‘wE EXPECT THE WRITE CHECK BIT TO BE SET 


: 2407 then 
; 2408 begin 


ee ee ee 2 
) ia’) 
GW ‘ 
co 
Ww 
se 
= 
i 


ee ae eee Pee 
N 
Sw 
Ss 


TOPS=20 Bliss=-16 V2(212) 


. # 
21-Apr-1981 08:40:22 
PA:<NEALE>PMSKL4.BLI.17 (15) 


BSKELS 
REV A PATCH 00 ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 


: 2409 ERRSF (ERR_13, UNX_DRV_ERR_MSG, DUMPER); "REPORT THE UNEXPECTED ERROR 
; 2410 PRINTB (ONE_MSG, WY_CHK_XFER_MSG); !PRINT WHICH FUNCTION CAUSED THE ERROR 
: 2411 DODU (.L$UNTT); 'DROP THIS UNIT 
; 2412 DOCLN; i JUMP TO THE CLEAN UP CODE 
; 2413 end; 
: 2414 

iz 2415 end; 

| 3 2416 

| : 2417 end: 

-SBTTL WRT.CHK.TRANSFE ROUTINE DECLARATIONS 

| 002634 010146 WRT. CHK. TRANSFE: 

MOV R1,-(SP) : 

| 002436 162706 000032 SUB #32,SP 
002442 016700 036772" MOV ML. ADDR,RO : 
002446 016066 000010 000030 MOV 10(RO), 30(SP) + *,ML.REG 
002454 016601 000030 MOV 30(SP).R1 + ML.REG,MLREG 
002460 152701 00004 BISB  #40,R1 + *,MLREG 
002464 616700 036772" MOV ML .ADDR,RO 
002470 010160 00001 MOV R1,10(RO) : MLREG,* 
002474 016700 036772" MOV ML .ADDR,RO 
002500 016066 000010 000026 MOV 10(RO) ,26(SP) : *,ML.REG 
002506 016601 000026 MOV 26(SP).R1 > ML.REG,MLREG 
002512 016700 036776" MOV ML .DUT,RO 
902516 042700 177770 BIC #177770,RO 
002522 142701 000007 BICB~— #7,,R1 : *,MLREG 
002526 050001 BIS RO,R1 + *,MLREG 
002530 016700 036772" MOV ML . ADDR, RO 
002534 010160 000010 MOV R1,10(RO) : MLREG,* 
002540 016700 036772" MOV ML . ADDR ,RO : 
002544 01 000024 000024 MOV 24(RO) ,24(SP) + *,ML.REG 
002552 016601 000024 MOV 24(SP),R1 + ML.REG,MLREG 
002556 152701 000002 BISB—s_- #2,,R1 + *,MLREG 
002562 016700 036772" MOV ML . ADDR ,RO 
002566 010160 000024 MOV R1,24(RO) : MLREG,* 
002572 016700 036772" MOV ML .ADDR,RO ; 
002576 016066 000010 000022 MOV 10(RO) ,22(SP) + *,ML.REG 
002604 016601 000022 MOV 22(SP),R1 + ML.REG,MLREG 
002610 016700 036776' MOV ML.DUT,RO 
002614 042700 177770 BIC #177770,RO 
002620 142701 000007 BICB—s._«#7,,R1 : *,MLREG 
002624 050001 BIS RO,R1 > *-MLREG 
002626 016700 036772" MOV ML .ADDR,RO 
002632 010160 00001 MOV R1.10(RO) : MLREG,* 
002636 016700 036772" MOV ML . ADDR, RO : 
002642 016066 000002 000020 MOV 2(RO) ,20(SP) + *,ML.REG 
002650 016601 2 MOV 42(SP),R1 > SIZE,MLREG 
002654 016700 036772" MOV ML .ADDR,RO 
002 010160 000002 MOV R1,2(RO) : MLREG,* 
002 016700 036772" MOV ML .ADDR,RO : 
902670 016066 000006 000016 MOV 6(RO), 16<SP) > *,ML.REG 


Page 50 
SEQ 0083 


2357 
2358 


2376 


2377 


2378 


2379 


BSKELS 


— REV A PATCH 00 


016700 


ROUT INE 


000040 
036772' 
000006 
036772" 
000004 
000036 
036772' 
000004 
036772' 
000012 
000077 
000051 
036772" 
036772' 
036772' 


000010 
040000 


001546" 
001630" 
000002 


0000006 


000006 
036772" 
000012 
000004 


036772" 
036772" 


000010 
040000 


001546" 
001630" 
000002 


6000006 


DECLARATIONS 


000014 


000012 


000010 


000006 
000006 


000004 


000002 


G 7 
21-Apr-1981 08: 
21-Apr-1981 08: 


40(SP),R1 

ML .ADDR ,RO 
R1,6(RO) 

ML .ADDR ,RO 
4(RO),14(SP) 


12.$P 


-@ML. 
am. ADDR, 1OCSP) 


ML .ADDR,RO 
10(RO) ,6 (SP) 
+ eeaataintl ts 


54 


15 

UNX.DRV.ERR.MSG 
DUMPER 

#WT.CHK.XFER. “wee -(SP) 
#ONE .MSG,-(SP 

#2,~(SP) 

SP.RO 


4 
LSUNIT,RO 
51 


44 

#6,SP 

ML .ADDR ,RO 
12(RO) ,4(SP) 
4(SP) 


1$ 
QML .ADDR,2 (SP) 
2$ 


ML.ADDR,RO 
10(RO) , (SP) 
+ ela ie 


54 


15 

UNX.DRV.ERR.MSG 
DUMPER 

#WT. CHK .XFER.MSG,-(SP) 
#ONE .MSG,~-(SP) 
#2,-(SP) 

SP,RO 

14 


LSUNIT,RO 


40:22 
19:06 


TOPS=20 Bliss-16 Note ie? 
PA:<NEALE>PMSKL4.BLI. 


DST,MLREG 
MLREG,* 


*,ML.REG 
SRC ,MLREG 


MLREG,* 


*® 


-ML.REG 
ML .REG,MLREG 
* ML .REG 


*,ML.REG 


; *,ML.REG 


SP ,* 


; *,ML.REG 


ML .REG 
* ML .REG 


*,ML.REG 
*,ML.REG 


sP,* 


Page 51 
SEQ 0084 


2380 


2381 


2383 
2387 


2390 


2391 


2392 


2389 


2400 


2402 
2406 


2409 


24190 


2413 


| BSKELS 
' REV A PATCH 00 ROUTINE DECLARATIONS 


: Routine Size: 181 words 


: Maximum stack depth per invocation: 


TRAP 5 
TRAP 44 
ADD #6, SP 

z ADD #32,SP 
MOV (SP) +,R1 
RTS PC 


17 words 


H 7 
21-Apr-1198 
21-Apr-198 


7:40: 
19: 


TOPS=20 Bliss=16 V2(212) Page 52 
PA:<NEALE>PMSKL4.BLI.1 (15) SEQ 0085 

; 2408 
; - £57 


I 7 
21-Apr-1981 08:40:22 TOPS=20 Bliss-16 V2(212) 


 BSKELS 
REV & PATCH 00 ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 PA: <NEALE>PMSKL4.BLI.1 (16) 
: 2418 routine WRI_TRANSFER (SIZE, DST, SRC) =: novalue = 
| ¥ 2419 begin 
2 2420 
is 2421 i+ 
5 s058 FUNCTIONAL DESCRIPTION: WRITE TRANSFER 
& 2424 | THIS ROUTINE WILL PERFORM A WRITE TRANSFER 
: 2425! AT THE DESIGNATED SOURCE AND DESTINATIONS 
wy 2426! ADDRESS. 
| # 2427 | 
| § 2428 | FORMAL PARAMETERS: 
&. 2429 i SIZE: 
i 2 ts pat STORES THE SIZE OF THE TRANSFER 
at; io STORES THE DESTINATION ADDRESS OF THE TRANSFER 
| Z i S : 
; a STORES THE SOURCE ADDRESS OF THE TRANSFER 
; 2436 
; 2437 CLR_MBUS; 'CLEAR THE MASS BUS 
: 2438 WRT_RH (MLCS2, DRV_SEL, .ML_DUT); 'SELECT THE DIVICE UNDER TEST 
: 2439 WRT_RH (MLWC, WC_REG, .SIZE); 'LOAD THE TRANSFER SIZE 
: 2440 WRT_RH (MLDA, DA_REG, .DST); 'LOAD THE DESTINATION ADDRESS 
: 2641 WRT_RH (MLBA, BA “REG, ~SRO); 'LOAD THE SOURCE ADDRESS 
song WRT_RH (MLCS1, FUNC, FUNC _ 5): 'LOAD A WRITE FUNCTION WITH GO SET 
: 2444 if .ML_ADDR CMLCS1, SC] 'DOES THE TRANSFER CAUSE A SC ERROR 
; 2445 —, 
2 2446 begin 
: 2447 ERRSF (ERR_13, UNX_DRV_ERR_MSG, DUMPER); 'REPORT THE UNEXPECTED ERROR 
: 2448 PRINTB (ONE_MSG, WRT _XFER_MSG):; 'PRINT WHICH FUNCTION CAUSED THE FRROR 
: 2449 DODU (.LSUNTT); 'DROP THIS UNIT 
2450 DOCLN; '! JUMP TO THE CLEAN UP CODE 
: 2451 end; 
; 2452 
: tz do 5 'DELAY FOR TRANSFER TO COMPLETE 
; ath until .ML_ADDR CMLDS, DRY]; 
: 2457 if .ML_ADDR CMLCS1, SC] 'DID THE TRANSFER CAUSE A SC ERROR 
3 2458 oa 
2459 begin 
: 2460 ERRSF (ERR_13, UNX_DRV_ERR_MSG, DUM°ER); 'REPORT THE UNEXPECTED ERROR 
: 2461 PRINTB (ONE MSG, WRT_xFER_MSG); 'REPORT WHICH FUNCTION CAUSED THE ERROR 
; 2462 DODU (.LS$UNTT) 'DROP THIS UNIT 
: 2463 DOCLN; ' JUMP TO THE CLEAN UP CODE 
: 2464 end: 
2 2465 
: 2466 end; 


.SBTTL WRT.TRANSFER ROUTINE DECLARATIONS 


Page 53 
SEQ 0086 


| BSKELS 
| REV AP 


003206 


ATCH 00 
010146 


ROUTINE DECLARATIONS 


WRT. TRANSFER: 
MOV 
24 SUB 
036772" MOV 
000010 000022 MOV 
000022 MOV 

040 B1SB 
036772" MOV 
16 MOV 
036772" MOV 
000010 000020 MOV 
000020 MOV 
036776" MOV 
177770 BIC 

7 BICB 
BIS 
036772" MOV 
10 MOV 
036772" MOV 
10 000016 MOV 
000016 MOV 
36776" MOV 
177770 BIC 

7 BICB 
BIS 
036772" MOV 
000010 MOV 
036772" MOV 
000002 000014 MOV 
000034 MOV 
036772" MOV 
2 MOV 
036772" MOV 
000012 MOV 
000032 MOV 
036772" MOV 
{ MOV 
036772" MOV 
000010 MOV 
030 MOV 
036772" MOV 
000004 MOV 
036772" 000006 MOV 
000006 MOV 

000077 BICB 

061 B1SB 
036772' MOV 
036772" 000004 MOV 
BPL 

TRAP 

. WOR 

. WORD 


eo F 
21-Apr=-198 
21-Apr-198 


R1,-(SP) 
#24,SP 

ML .ADDR,RO 
10(RO) ,22(SP) 
22(SP)-R1 
#40,R1 

ML .ADDR RO 
R1.10(RO) 

ML. ADDR, RO 
10(RO) ,20(SP) 


ML .ADDR ,RO 
R1,170(RO) 

ML .ADDR ,RO 
10(RO) ,16(SP) 
16(SP).R 

ML .DUT ,RO 
#177770,R0 
#7,R1 

RO,R1 

ML .ADDR ,RO 
R1,10(RO) 

ML .ADDR ,RO 
2(RO) ,14(SP) 
34(SP) ,R1 

ML .ADDR ,RO 
R1,2(RO) 

ML .ADDR ,RO 
6(RO) ,12(SP) 
32(SP),R 

ML .ADDR ,RO 
R1,6(RO) 


amc. ADDR, 6(SP) 
6(SP) ,RO 

#77, RO 

#61, 

RO, @ML .ADDR 
aM. "ADDR. 4(SP) 


os 


15 
UNX.DRV.ERR.MSG 


TOPS=20 Bliss=-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 


*,ML.REG 

ML .REG,MLREG 
* ,.MLREG 
MLREG,* 

* ,ML.REG 
ML.REG,MLREG 


* ,MLREG 
* ,MLREG 


MLREG,* 


* ,ML.REG 
ML .REG,MLREG 


; *,MLREG 
; *,MLREG 


MLREG,* 
*,ML.REG 
SIZE .MLREG 
MLREG,* 


* ,ML.REG 
DST,.MLREG 


MLREG,* 


*,ML.REG 
SRC ,MLREG 


*,ML.REG 


sea0087 


54 


2418 
2419 


2438 


2439 


2440 


244) 


2442 


2444 
2447 


a 


, BSKELS 
| REV A PATCH 00 ROUTINE DECLARATIONS 
003524 000000" 


003526 012746 001474" 

003532 012746 001630' 
35 012746 000002 

003542 010600 

003544 104414 

003546 016700 0000006 

003552 104451 


003602 917716 036772" 
000 


00000 
003620 012746 001474' 
003624 012746 001630" 
000002 


003640 016700 000000G 


003650 062706 000006 
062706 000024 2$: 


: Routine Size: 151 words 


| 
| 
| 
| 
| 003556 062706 000006 
003562 016700 036772° 1$: 
003566 016066 000012 000002 
003574 105766 000002 
> Maximum stack depth per invocation: 14 words 


g Ff 
21-Apr-1981 
21-Apr-1981 


DUMPER 

AWRT .XFER.MSG,=(SP) 
MONE .MSG,=(SP) 
#2,-(SP) 


° 


14 
L$UNIT,RO 
51 


44 
#6,SP 


ML.ADDR,RO 
12(RO) ,2¢SP) 
2(SP) 

1$ 

@ML .ADDR, (SP) 
2$ 


54 


15 

UNX.DRV.ERR.MSG 
DUMPER 

AWRT .XFER.MSG,-(SP) 
#ONE .MSG,~(SP) 
#2,-(SP) 


° 


14 
ceases 


#24,SP 
(SP)+,R1 
PC 


1 


TOPS-20 Bliss-16 v2(212) Page 55 


PA:<NEALE>PMSKL4.BLI.1 (16) SEQ 0088 

: 2448 
s .* 

Py 2449 
é 2446 
; 2455 
; *,ML.REG 

; ML.REG 

; *,ML.REG 2457 
: 2460 
; 2461 
; +,* 

g 2462 
: 2459 


3 2418 


BSKEL4S 
REV A 


PATCH 00 


ROUTINE DECLARATIONS 


routine RD_TRANSFER (SIZE, DST, SRC) 


‘ 
i 
' 
i 
! 
i 
\ 
i 
i 
i 
\ 
i 
i 
to 


begin 


FUNCTIONAL DESCRIPTION: READ TRANSFER 


7 
21-Apr-1981 08:40:22 
21-Apr-1981 08:19:06 


: novalue = 


TOPS=20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (17) 


THIS ROUTINE PERFORMS A READ TRANSFER AT THE 
DESIGNATED SOURCE AND DESTIONATION ADDRESSES. 


FORMAL PARAMETERS: 
SIZE: 


STORES THE SIZE OF THE TRANSFER 
STORES THE DESTINATION ADDRESS OF TRANSFER 
STORES THE SOURCE ADDRESS OF TRANSFER 


DST: 
SRC: 


R MBUS . 
ECC_DIS (ENAB 


WRT-RH (MLWC, WC as .SIZE); 
RH (MLDA, DA_REG, .SRC); 
WRT_RH (MLBA, “se pst 


if .ML_ADDR CMLCS1, SCJ 
tnen 


thy (ERR_13, UNX DRV ERRMSG, 
PRINTB (ONE MSG, RD_XFER_MSG) ; 
DODU (.LS$UNTT); 

DOCLN; 

end; 


do 0 
until .ML_ADDR CMLDS, DRY); 


if .ML_ADDR CMLCS1, SCJ 
one 


at Ms (ERR_13, UNX_DRV_ERR_MSG, 
PRINTB (ONE MSG. RB_xFER_MSG); 
DODU (.LSUNTT); 

DOCLN; 

end; 


end; 


- SBTTL 


DUMPER) ; 


DUMPER) ; 


'CLEAR THE MASS BUS 

'DISABLE ERROR CORRECTION 

'SELECT THE DIVICE UNDER TEST 
'LOAD THE TRANSFER SIZE 

'LOAD THE SOURCE ADDRESS 

'LOAD THE DESTINATION ADDRESS 
'LOAD A READ FUNCTION WITH GO SET 


'DOES THIS FUNCTION CAUSE A SC ERROR 


'REPORT THE UNEXPECTED ERROR 
'REPORT WHICH FUNCTION CAUSE THE ERROR 
'DROP THIS UNIT 
! JUMP TO THE CLEAN UP CODE 


'DELAY FOR THE TRANSFER TO COMPLETE 


'DID THE TRANSFER CAUSE A SC ERROR 


'REPORT THE UNEXPECTED ERROR 
'PRINT WHICH FUNCTION CAUSED THE ERROR 
‘DROP THIS UNIT 
' JUMP TQ THE CLEAN UP CODE 


RD. TRANSFER ROUTINE DECLARATIONS 


Page 


56 
SEQ 0089 


M 7 
21-Apr-1981 08:40:22 TOPS=20 Bliss-16 V2(212) Page 57 


| 
| BSKEL4 
| REV A PATCH 00 ROUTINE DECLARATIONS 51-Apr-1981 08:19:06  PA:<NEALE>PMSKL4.BLI.1 (17) SEQ 0090 
| 003664 010146 RD. TRANSFER: 
| MOV R1,=(SP) : 2467 
003666 162706 000026 SUB #26,SP 
003672 016700 036772" MOV ML .ADDR,RO : 2468 
003676 016066 000010 000024 MOV 10(RO) ,24(SP) * *,ML.REG 
003704 016601 000024 MOV 24(SP).R1 t ML.REG,MLREG 
003710 152701 000040 BISB = #40,R1 + *,MLREG 
003714 016700 036772" MOV ML .ADDR,RO 
003720 010160 000010 MOV R1.10(RO) : MLREG,* 
003724 016700 036772" MOV ML. ADDR,RO 
003730 016066 000010 000022 MOV 10(RO) ,22(SP) : *,ML.REG 
003736 016601 000022 MOV 22(SP).R1 * ML.REG,MLREG 
003742 616700 036776" MOV ML.DUT RO 
003746 042700 177770 BIC #177770,RO 
003752 142701 000007 BICB-— #7,,R1 : *,MLREG 
003756 050001 BIS RO.R1 + * MLREG 
003760 016700 036772" MOV ML .ADDR,RO 
003764 010160 000010 MOV R1,10(RO) : MLREG,* 
003770 016700 036772" MOV ML .ADDR,RO : 2486 
003774 616066 000024 000020 MOV 24 (RO) ,20(SP) + *,ML.REG 
004002 016601 000020 MOV 20(SP).R1 : ML.REG,MLREG 
004006 152701 000002 BISB—s- #2, R1 + *,MLREG 
004012 016700 036772" MOV ML .ADDR,RO 
004016 010160 000024 MOV R1,24(RO) : MLREG,* 
004022 016700 036772" MOV ML. ADDR, RO : 2487 
004026 016066 000010 000016 MOV 10(RO) , 16(SP) + *,ML.REG 
004034 016601 000016 MOV 16(SP).R1 + ML.REG,MLREG 
004040 016700 036776' MOV ML .DUT,RO 
004044 042700 177770 BIC #177770,RO 
004050 142701 000007 BICB.~—-#7,,R1 : *,MLREG 
004054 050001 BIS RO.R1 > * MLREG 
004056 016700 036772" MOV ML .ADDR,RO 
004062 010160 000010 MOV R1.10(RO) : MLREG,* 
004066 016700 036772" MOV ML .ADDR,RO : 2488 
004072 016066 000002 000014 MOV 2(RO),14(SP) > *,ML.REG 
004100 016601 000036 MOV 36(SP).R1 : SIZE.MLREG 
004104 016700 036772" MOV ML .ADDR,RO 
004110 010160 000002 MOV R1,.2(RO) : MLREG.* 
004114 016700 036772" MOV ML. ADDR, RO : 2489 
004120 016066 000006 000012 MOV 6(RO), 12(SP) > *,ML.REG 
004126 016601 000032 MOV 32(SP),R1 + SRC,MLREG 
004132 016700 036772" MOV ML ADDR, RO 
004136 010160 000006 MOV R1.6(RO) > MLREG,* 
004142 016700 036772" MOV ML ADDR, RO ; 2490 
004146 016066 000004 000010 MOV 4 (RO), 10(SP) + *,ML.REG 
004154 016601 000034 MOV 34(SP),R1 : DST.MLREG | 
004160 016700 036772" MOV ML .ADDR,RO 
004164 010160 000004 MOV R1.4(RO) : MLREG,* 
004170 017766 036772" 000006 MOV ami .ADDR,6(SP) + *,ML.REG 2491 
004176 016600 000006 MOV 6(SP) ,RO + ML.REG.MLREG 
004202 142700 000077 BICB = #77,RO + *,MLREG 
004206 152700 600071 BISR  #71.RO > *-MLREG 





-——— —-—---- --- 


ony 
REV A PATCH 00 


ROUTINE DECLARATIONS 


004212 010077 036772" MOV 
004216 017766 036772* G00004 MOV 
4224 100022 BPL 
004226 104454 TRAP 
230 « WORD 
004232 001362" - WORD 
234 4 . WORD 
004236 012746 001424' MOV 
004242 012746 001630' MOV 
004246 012746 2 MOV 
004252 MOV 
004254 104414 TRAP 
004256 016700 0000006 MOV 
004262 104451 TRAP 
264 104444 TRAP 
266 0627 000006 ADD 
004272 016700 036772" 1$: MOV 
004276 016066 000012 000002 MOV 
105766 000002 TSTB 
004310 100370 BPL 
004312 017716 036772" MOV 
004316 100022 BPL 
004320 104454 TRAP 
004322 . WORD 
004324 001362" . WORD 
004326 . WORD 
004330 012746 001424' MOV 
334 012746 001630° MOV 
004340 012746 000002 MOV 
004344 010600 MOV 
6 104414 TRAP 
004350 016700 0000006 MOV 
004354 104451 TRAP 
004356 104444 TRAP 
004360 062706 000006 ADD 
062706 000026 23: ADD 
004370 012601 MOV 
004372 000207 RTS 


; Routine Size: 
: Maximum stack 


164 words ; 
depth per invocation: 15 words 


N 7 
21-Apr-1981 08: 


40:22 


21-Apr-1981 08:19:06 


RO,@ML .ADDR 
aM. .ADDR, 4 (SP) 


54 

15 
UNX.DRV.ERR.MSG 
DUMPER 
#RD.XFER.MSG,=-(SP) 
#ONE .MSG,=-(SP) 
#2,-(SP) 

SP,RO 


14 

LSUNIT,RO 

51 

44 

#6,SP 

ML ..ADDR ,RO 
12(RO) ,2(SP) 

2 (SP) 

1$ 

@ML .ADDR, (SP) 
2$ 

54 

15 

UNX .DRV.ERR.MSG 
DUMPER 
ARD.XFER.MSG,=-(SP) 
MONE .MSG,=(SP) 
#2,-(SP) 

SP,RO 


14 
* dict 


TOPS=20 Bliss=16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (17) 


MLREG,* 
*,ML.REG 


SP,* 


* ,ML.REG 
ML.REG 


* .ML.REG 


SP,* 


a 58 
s£0°0091 


2493 


2496 


2497 


2498 


2495 
2504 


2506 
2509 


2510 


2511 


2508 
2467 


ee 


1 --— O r - —_— - — —— 


8 8 
21-Apr-1981 set eo TOPS=20 Bliss-16 V2(212) 


| BSKELS 
REV A PATCH 00 ROUTINE DECLARATIONS 21-Apr-1981 06 PA:<NEALE>PMSKL4.8L3.1 (18) 
i 3 3318 routine I_CHIP_TAL : novalue = 
| 3 251 begin 
| 3 $2) 
: 519 lee 
| 3 $239 . FUNCTIONAL DESCRIPTION: INITIALIZE THE SAD CHIP TABLE 
3 e5se2_ : THIS ROUTINE WILL CLEAR ALL 39 TABLE 
é 252 ENTRIES TO ZERO. 
Se Be 
é 2526 incr TBL_LINDEX from 0 to 38 do ! INITIALIZE THE BAD CHIP TABLE 
; 2527 CHIP_TBL C.TBLLINDEN, ALL] = ZEROES; 
| 5 2528 
F} 2529 end; 
.SRTTL) I.CHIP.TBL ROUTINE DECLARATIONS 
004374 010146 1.CHIP.TAL: 
MOV R1,-(SP) s 
004376 005000 CLR RO ; TBL.INDEX 
004400 010001 1$: MOV RO,R1 ; TBL.INDEX,* 
004402 006301 ASL R1 
004404 005061 026626° CLR CHIP. TBL(R1) 
006410 005200 INC RO ; TBL. INDEX 
004412 020027 000046 CMP RO, #46 ; TBL.INDEX,* 
004416 003770 BLE 1$ 
004420 012601 MOV (SP)+,R1 : 
004422 000207 RTS PC 


3; Routine Size: 12 words ; 
: Maximum stack depth per invocation: 2 words 





Page 59 
SEQ C092 


Cc 8 
21-Apr-1981 


2543 end; 


1. TMP.BLST.TBL: 
MOV 


R1,-(SP) 
004426 605000 CLR RO 
010001 1$: MOV RO,R1 
004432 006301 ASL R 
004434 005061 026744" CLR TMP. .BLST.TBL(R1) 
004440 005200 INC RO 
004442 020027 000011 CMP RO,A11 
004446 003770 BLE 1$ 
004450 012601 MOV (SP)+,R1 
004452 000207 RTS PC 


; Routine Size: 12 words | " 
: Maximum stack depth per invocation: 2 words 


Sy 
ft 
>> 
oO 
_—_ 
oOo 
= va] 
, + 
o ins) 


BSKELS 08:40:22  TOPS=20 Bliss-16 v2(212) 
REV A PATCH 00 ROUTINE DECLARATIONS 31-Apr-1981 08:19:06  PA:<NEALE>PMSKL4.BLI.1 (19) 
; 25 routine I_TMP_BLST_TBL : novalue = 

; 2531 begin 

: 2532 

: 2533 144 

: 2934 i FUNCTIONAL DESCRIPTION: INITIALIZE THE TEMP BLAST TABLE 

: 2536 THIS ROUTINE WILL CLEAR ALL 100 ENTRIES 

; 2537 | OF THE TEMP BLAST TABLE TO ZEROES. 

: 2540 incr TBL_INDEX from 0 to 9 do ‘INITIALIZE THE TEMPORARY BLAST TABLE 

: 2541 TMP_BLST_TBL C.TBL_INDEX, FULL_WRD] = ZEROES; 


SBTTL 1.TMP.BLST.TBL ROUTINE DECLARATIONS 


; TBL. INDEX 
; TBL.INDEX,* 


; TBL. INDEX 
; TBL.INDEX,* 
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SEQ 0093 


2530 
2540 
2541 


2540 


2530 


Routine Size: 
Maximum stack 


D 8 


TOPS-20 Bliss-16 yetete) 
PA:<NEALE>PMSKL4.BLI.1 (20) 


; TBL. INDEX 


; *(TBL. INDEX) 
; TBL. INDEX 
; TBL.iNDEX,* 


21-Apr-1981 08:40:22 
ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 
routine I_COL_CNT_TBL : novalue = 
begin 
++ 
: FUNCTIONAL DESCRIPTION: INITIALIZE THE COLUMN COUNT TABLE 
i THIS ROUTINE WILL CLEAR THE COLUMN COUNT 
! TABLES 256 ENTRIES TO ZEROES. 
incr TBL_INDEX from 0 to 255 d ‘INITIALIZE THE COLUMN COUNT TABLE 
COL_tNT_TBL C.TBL_ INDEX = © DEROES: 
end; 
SBTTL 1.COL.CNT.TBL ROUTINE DECLARATIONS 
1.COL.CNT.TBL: 
CLR RO j 
000000' 1$: CLAB COL. CNT. TBL (ROD : 
000377 CMP RO,#377 : 
BLE 1$ 
RTS PC ; 
8 words 


depth per invocation: 0 words 


Page 61 
0094 


SEQ 


BSKEL4 
REV A PATCH 00 


Routine Size: 
Maximum stack 


E 8 
21-Apr-198 
ROUTINE DECLARATIONS 21-Apr-198 


routine I_REM_TBL : novalue = 
begin 


en 
oo 
Goce 
as 
wo 
on 
ano 


lee 


FUNCTIONAL DESCRIPTION: INITIALIZE THE REMAINDER TABLE 


i THIS ROUTINE WILL CLEAR THE REMAINDER 
i TABLES 100 ENTRIES TO ZEROES. 


loa 
incr TBL_INDEX from 0 to 99 do 


BEAT TBL C.TBL_INDEX, RO_CL] = ZERO 
COPTED_ REM_ TAL C. TAL _ INDEX, RO_ ays 5; FEROES; 


end; 
end; 
.SBTTL I.REM.TBL ROUTINE DECLARATIONS 
I.REM.TBL: 
MOV R1,-(SP) 
CLR RO 
1$: MOV RO,R1 
ASL R1 
000400' CLR REM. TBL(R1) 
000710° fhe ” beasts ~REM. TBL(R1) 
000143 CMP RO,4143 
BLE 1$ 
MOV (SP)+,R1 
RTS PC 
14 words 


depth per invocation: 2 words 


TOPS=20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (21) 


‘INITIALIZE THE REMAINDER AND COPIED REM TABLE 


; TBL.INDEX 
; TBL.INDEX,* 


; TBL.INDEX 
; TBL.INDEX,* 


Page 62 
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: Routine Size: 
3; Maximum stack 


F 8 
21-Apr-1981 08:40:22 


ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 


routine I_COL_PTR : novalue = 


TOPS=20 Bliss=-16 V2(212) 
PA: <NEALE>PMSKL4.BLI.1 (22) 


begin 
lee 
i FUNCTIONAL DESCRIPTION: INITIALIZE THE COLUMN POINTER TABLE 
i THIS ROUTINE WILL CLEAR THE COLUMN POINTER 
; TABLES 10 ENTRIES TO ZEROES. 
incr TBL_INDEX from 0 to 9 do 'INITIALIZE THE COLUMN POINTER TABLE 
COL_PIR [.TBL_LINDEX] = ZEROES; 
end; 
.SBTTL 1.COL.PTR ROUTINE DECLARATIONS 
1.COL.PTR: 
CLR RO : TBL. INDEX 
001220" 1$: CLRB  COL.PTR(RO) + *(TBL. INDEX) 
INC RO + TBL. INDEX 
000011 CMP RO,#11 > TBL.INDEX,* 
BLE 1$ 
RTS PC : 
& words 


depth per invocation: Q words 


ee ee ——E 
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SEQ 0096 


2585 
2586 
2585 


2575 


BSKELS 
REV A PATCH 00 


Be Ge ee Fe Se Be He SH Se He Se Se Oe ay 
—~ 


: Routine Size: 
; Maximum stack 


Ww 
& 
8 
Ww 
N 
™N 
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21-Apr-19 


81 08:40:22 TOPS=20 B!iss=16 V2(212) 
ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI.1 (23) 
routine I_ERROR_MAP : novalue = 
begin 
eo 
! FUNCTIONAL DESCRIPTION: INITIALIZE THE ERROR MAP 
! INITIALIZE THE ERROR MAPS 512 BLOCKS 
incr TBLLINDEX from 0 to %0°17776" by %o" 2' do 'INTIALIZE THE ERROR MAP 
(ERROR_MAP + .TBL_INDEX) = ZEROES; 
end; 
.SBTTL I.ERROR.MAP ROUTINE DECLARATIONS 
1.ERROR.MAP: 
CLR RO : TBL. INDEX 
006626' 1$: CLR ERROR .MAP(RO) : *(TBL. INDEX) 
000002 ADD #2,RO0 : *,TBL. INDEX 
017776 CMP RO,417776 : TBL.INDEX,* 
BLE 1$ 
RTS PC : 
9 words 


depth per invocation: QO words 
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SEQ 0097 


_ BSKELS 
| REV A PATCH 00 


Be Oe ee BH Oe Oe Oe He Oe HHH He eg 
Nm 
oa 
oO 
0 


Routine Size: 
; Maximum stack 


H 8 
21-Apr-1981 08:40:22 
ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI.1 
routine I_BLAST_TBL : novalue = 
begin 
'+4 
! FUNCTIONAL DESCRIPTION: INITIALIZE THE BLAST TABLE 
CLEAR THE BLAST TABLES 4 BLOCKS TO 
TO ZEROES. 
incr TBL_INDEX from 0 to %0'7776" by %o'2" do 'INITIALIZE THE BLAS! TABLE 
(BLAST_TBL + .TBL_INDEX) = ZEROES; 
end; 
.SBITL I.BLAST.TBL ROUTINE DECLARATIONS 
].BLAST.TBL: 
CLR RO ; TBL. INDEX 
026770" 1$: CLR BLAST. TBL (RO) : *(TBL. INDEX) 
000002 ADD #2,R : *,TBL. INDEX 
007776 CMP RO,#7776 : TBL.INDEX,* 
BLE 1$ 
RTS PC 
9 words 


depth per invocation: 0 words 


ie &. o Be ee. 42 OOO? * 


TOPS=20 Bliss-16 V2(212) 


(24) 
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21-Apr-1981 08:40:22 TOPS=20 Bliss-16 tne 
ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI. 
routine L_RANDOM_DATA (TEMP_ARRS$BNK_SEL) : novalue = 
begin 
'++ 
! FUNCTIONAL DESCRIPTION: LOAD RANDOM DATA 
i THIS ROUTINE WILL LOAD VIA MASS BUS 
i TRANSFERS RANDOM DATA TO THE SELECTED 
i ARRAY AND BANK SELECTED BY ARRAY BANK 
SELECT. 
i FORMAL PARAMETERS: 
' TEMP_ARRS$BNK_SEL 
i THIS ~ ARGUMENT STORES THE SELECTED ARRAY 
e AND BANKS ARRAY AND BANK SELECT NUMBERS. 
local 
RANDOM_ INDEX; 'WRITE BUFFER RANDOM DATA INDEX 
RANDOM_INDEX = ZERO; 'THE FIRST TRANSFER STARTS AT WRITE BUF WORD ZERO 
GEN_ RANDOM_ DATA (); 'GENERATE A WRITE BUF OF RANDOM DATA 
incr SEC_ CNT from 0 to .BNK_NUM_SEC do 'LOAD ALL SECTORS IN BANK WITH RANDOM DATA 
rt a TRANSFER (SIZE = -256, DST = .TEMP_ARRSBNK_SEL + .SEC_CNT, SRC = WRT BUF [C.RANDOM_INDEX, 
RANDOM_ INDEX = -RANDOM_ INDEX +2 'NEXT SECTOR STARTS 2 WORD DEEPER IN WRITE BUFFER 
end; ' 
end; 
.SBTTL L.RANDOM.DATA ROUTINE DECLARATIONS 
000000G L.RANDOM. DATA: 
'» dR R1,$SAVE4 é 
CLR R3 : RANDOM. INDEX 
173742 JSR PC,GEN.RANDOM. DATA : 
037014' MOV BNK.NUM.SEC,R4 ; 
CLR R1 3; SEC.CNT 
BR 2$ 
177400 1$: MOV #-400,-(SP) 3 
037024" MOV (SP) ,SIZE 
MOV R1,R2 s SEC.CNT,*® 
00001 ADD 16(SP) ,R2 : TEMP. ARRSBNK.SE,* 
eet MOV R2,DST 
MOV R2,-(SP) 
MOV R3,R2 ; RANDOM. INDEX,* 
ASL 2 
001232" ADD AWRT BUF ,R2 
037030" MOV R2,SRC 
MOV R2,-(SP) 
176302 JSR PC,WRT. TRANSFER 


(25) 


Page 
SEQ $099" 


‘s.. 
| BSKEL4 21-Apr-1981 08:40:22  TOPS=20 Bliss-16 v2(212) Page 67 
REV A PATCH 00 ROUTINE DECLARATIONS 51-Apr-1981 08:19:06  PA:<NEALE>PMSKL4.BLI.1 (25) sea 0100 
004704 062703 000002 ADD #2,R3 ; *, RANDOM. INDEX 2643 
| 004710 062706 000006 ADD #6.SP : 2641 
004714 005201 INC Ri  SEC.CNT 2640 
004716 020104 2$: CMP R1,R4 > SEC.CNT,* 
004720 903746 BLE 1$ 
004722 000207 RTS PC : 2617 


; Routine Size: 36 words | : 
: Maximum stack depth per invocation: 8 words 


2 ee ee eee 


; Routine Size: 
: Maximum stack 


ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI.1 (26) 
routine L_1_0_DATA (TEMP_ARRSBNK_SEL, DATA) : novalue = 
begin 
i * FUNCT ONAL saeaacticin LOAD ONES AND ZEROES DATA 
i HIS ROUTINE WILL LOAD THE SELECTED ARRAY AND BANK WITH ONES OR ZEROES DATA. 
‘FORMAL PARAMETERS: 
i TEMP_ARR$BNK_SEL 
x THIS ~ ARGUMENT STORES THE SELECTED ARRAYS ARRAY AND BANK SELECT NUMBER. 
incr WRD_CNT from 0 to (127 + 511*2) do 'LOAD THE WRITE BUF WITH DATA 
WRT_BuF C.WRD_CNT, WRD] = .DATA; 
incr SEC_CNT from 0 to .BNK_NUM_S 'LOAD ALL SECTORS IN BANK WITH DATA 
WRT_TRANSFER (SIZE = -256, Bei = 9° EMP ARR$BNK_SEL + .SEC_CNT, SRC = WRT_BUF); 
end; 
.SBTTL L.1.0.DATA ROUTINE DECLARATIONS 
000000G L.1.0.DATA: 
JSR R1,$SAVE3 3 
CLR RO ; WRD.CNT 
1$: MOV RO,R1 ; WRD.CNT,* 
ASL R1 
000012 001232" MOV 12(SP) ,WRT.BUF (R1) : DATA,* 
INC RO : WRD.CNT 
002175 a aha ; WRD.CNT,* 
L 
037014" MOV BNK .NUM.SEC,R3 : 
CLR R2 : SEC.CNT 
BR 3$ 
177400 2s: MOV #-400,-(SP) : 
037024" MOV (SP), SIZE 
MOV R2,R1 ; SEC.CNT,* 
000016 ADD 16(SP),R1 : TEMP. ARRSBNK.SE,* 
037026' MOV R1,DST 
MOV R1,~-(SP) 
001232" MOV #WRT .BUF ,- (SP) 
037030" MOV (SP), SRC 
176162 JSR PC, WRT. TRANSFER 
000006 ADD #6.SP 
INC R2 : SEC.CNT 
3$: CMP R2,R3 : SEC.CNT,* 
BLE 2$ 
RTS PC j 
38 words 


8 
21-Apr-1981 08:40:22 TOPS=20 Bliss-16 Vv2(212) 


depth per invocation: 7 words 


Pa 68 
SEQ 0101 


BSKELS 
REV A PATCH 00 ROUTINE DECLARATIONS 


Ll 8 
21-Apr-1981 08:40:22 
21-Apr-1981 08:19:06 


TOPS=20 Bliss-16 Vv2(212) 
PA:<NEALE>PMSKL4.BLI.1 (27) 


a a 
oy 


Be ee Fe Be ee Se Fe Be ee FH He Be Be Be Oe Bee Be He Be Be Be He FH He Se Se Se Se He He Sete Fe Ge Ge Ge as 


routine L_CHIP_TBL (FAIL_CHIP, PAT SEL) 
begin 


+ 
+ 


FORMAL PARAMETERS: 
FAIL_CHI 


PAT_SEL: 


CHIP_TBL C.FAIL_CHIP, FAULT] = SET_FLG; 
case .PAT_SEL from 0 to 14 of 
set 
2: 
CHIP_TBL C.FAIL_CHIP, PAT_0J = 


[1] : 
CHIP_TBL C.FAIL_CHIP, PAT_1] = 


[2] : 
CHIP_TBL C.FAIL_CHIP, RAN_1] = 


(3) : 
CHIP_TBL [.FAIL_CHIP, RAN_2] = 


[4] : 
CHIP_TBL [.FAIL_CHIP, RAN_3] = 


(S) : 
CHIP_TBL C.FAIL_CHIP, RAN_4] = 


{6] : 
CHIP_TBL [.FAIL_CHIP, RAN_5] = 


: novalue = 


FUNCTIONAL DESCRIPTION: LOAD BAD CHIP TABLE 


THE BAD CHIP TABLE STORES FOR A BANK 
ALL THE FAILING MOS RAMS AND THIER 
FAILING DATA PATTERNS. THE POSSIBLE 
DATA PATTERNS THAT COULD FAIL ARE: 

1. ALL ONES DATA 

2. ALL ZEROES DATA 

3. THIRTEEN RANDOM DATA PATTERNS 


THIS ROUTINE WILL SET THE FAULT FLAG 


AND FAILING DATA PATTERN FLAG FOR EACH 
MOS RAM FOUND TO BE BAD. 


P: 
POINTS TO THE FAILING CHIPS TABLE POSITION 
4 = th TO THE CURRENT FAILING PATTERN FOR THIS 


'SET THIS CHIPS FAULT FLAG 

'SELECT THE CHIPS FAILING DATA PATTERN 
SET_FLG; !SET ZEROES DATA FLAG 
SET_FLG; !SET ONES FLAG 
SET_FLG; 'SET RANDOM DATA 1 FLAG 
SET_FLG; 'SET RANDOM DATA 2 FLAG 
SET_FLG; 'SET RANDOM DATA 3 FLAG 
SET_FLG; !SET RANDOM DATA 4 FLAG 


SET_FLG; !SET RANDOM DATA 5 FLAG 


Pa 69 
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— BSKELS Page 70 
| REV A PATCH 00 ROUTINE DECLARATIONS 51-Apr-1981 08:19:06  PA:<NEALEDPMSKL4.BLI.1 (27) SEQ 0103 
| 2717 [7] : 
- 2718 CHIP_TBL C.FAIL_CHIP, RAN_6] = SET_FLG: 'SET RANDOM DATA 6 FLAG 
3 5720 [8] : 
| 3 erat CHIP_TBL C.FAIL_CHIP, RAN_7] = SET_FLG; 'SET RANDOM DATA 7 FLAG 
|; 5758 [9] : 
: 2724 CHIP_TBL [.FAIL_CHIP, RAN_8] = SET_FLG; 'SET RANDOM DATA 8 FLAG 
: 5756 C10) : 
: 2727 CHIP_TAL [.FAIL_CHIP, RAN_9J = SET_FLG; ‘SET RANDOM DATA 9 FLAG 
; 5759 C11]: 
; 2730 CHIP_TBL C.FAIL_CHIP, RAN_10] = SET_FLG;  !SET RANDOM DATA 10 FLAG 
: 5732 C12] : 
; 733 CHIP_TBL C.FAIL_CHIP, RAN_11] = SET_FLG; | !SET RANDOM DATA 11 FLAG 
: 5735 C13] : 
; ie CHIP_TBL C.FAIL_CHIP, RAN_12) = SET_FLG; 'SET RANDOM DATA 12 FLAG 
: 5738 [14] : 
: 2739 CHIP_TBL C.FAIL_CHIP, RAN_13] = SET_FLG; | !SET RANDOM DATA 13 FLAG 
; 2740 tes; 
: 5741 
; 2742 end; 
“SBITL L.CHIP.TBL ROUTINE DECLARATIONS 
005040 010146 L.CHIP. TAL: 
Mov _—-R1, = (SP) : 2665 
005042 016600 000006 Mov 6(SP) RO * FAIL.CHIP,* 5691 
005046 006300 ASL —RO 
005050 062700 026626" ADD —sC#CHIP. TBL,RO 
0038054 052710 100000 BIS #100000, (RO) | 
005060 016601 000004 MoV —s& (SP) -RI : PAT.SEL.* 2693 
005064 006301 ASL sR 
066107 005072" ADD _—«1$(R1) .PC 
005072 000036 i$: "WORD -2$-1$ 
005074 000044 "WORD © 3$-1$ 
005076 000052 "WORD 4$-1$ 
005100 "WORD 5$-1$ 
005102 "WORD 6$-1$ 
005104 00007 "WORD 7$-1$ 
005106 000102 "WORD 8$-1$ 
005110 000110 "WORD 9$-1$ 
5112 000116 “WORD -10$-1$ 
005114 000124 "WORD -'11$-18 
005116 000132 "WORD 128-18 
005120 000140 "WORD 13$-1$ 
005122 000146 "WORD 148-18 
005134 000154 "WORD 158-18 


——— 


N 8 
BSKELS 21-Apr-19 


81 08:40:22 TOPS=20 Bliss-16 at ae 71 
REV A PATCH 00 ROUTINE DECLARATIONS 21-Apr-1981 08:19:96 PA:<NEALE>PMSKL4.BLI.1 (27) sea 35104 
005126 000162 . WORD 16$-1$ 

005130 052710 040000 2$: BIS ee (RO) : 2697 
005134 000451 BR 17 : 2693 
005136 052710 020000 3$: BIS #20000, (RO) : 2700 
005142 000446 aie : 2693 
é 2703 
$ 2693 

$ 2706 
005156 40 1 : 2693 
5160 052710 002000 6$: BIS #2000, (RO) : 2709) 
005164 000435 BR 7 : 2693 
005166 052710 001000 7$: BIS #1000, (RO) : 2712 
005172 000432 AR 17$ : 2693 
005174 052710 000400 8$: BIS #400, (RO) s 2715 
005200 000427 BR 17$ : 2693 
005202 152710 000200 9$: BISB #200, (RO) F 2718 
005206 000424 BR 17 : 2693 
005210 152710 000100 10$: BISB #100, (RO) : 2721 
005214 000421 BR 17$ 3 2693 
005216 152710 000040 11$: BISB #40. (RO) : 2724 
005222 000416 BR 7$ : 2693 
005224 152710 000020 12$: BISB #20, (RO) : 2727 
005230 000413 BR 17$ 5 2693 
005232 152710 000010 13$: BISB #10, (RO) : 27” 
005236 000410 en 17$ 2 2693 
005240 152710 000004 14%: BISB #4, (RO) : 2733 
005244 000405 BR 17$ 5 2693 
005246 152710 000002 15$: BISB #2, (RO) . 2736 

005252 000402 BR 17$ : 269 

005254 152710 000001 16$: BISB #1, (RO) : 273 
005260 012601 17$: MOV (SP)+,R1 * 2665 


005262 000207 RTS PC 


: Rout ine Size: 74 words | ; 
: Maximum stack depth per invocation: 2 words 


| 
| 
17 
005144 052710 010000 4$: BIS #10000, (RO) 
005150 000443 BR 17$ 
005152 052710 004000 5$: BIS #4000, (RO) 
0004 BR 


/ BSKELS 
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ROUTINE DECLARATIONS 51-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.8L1.1 (28) 
routine FAILING CHIP (TEMP_ARRSBNK_SEL, BAD_CHIP, LST_PAT) = 
gin 


+ 
+ 


FUNCTIONAL DESCRIPTION: LOAD FAILING CHIP 


THE PROGRAM WILL FIRST SEARCH THRU THE 
SELECTED ARRAYS AND BANKS AND FIND ALL 
NEWLY FAILING MOS RAMS. 


ONCE THEY ARE FOUND THEN THEY ARE LOADED 
WITH THE DATA PATTERN yoo ir THE 
MASS BUS WRITE CHECKS AND THE FAILING 
ROW COLUMN PAIR ADDRESS IS SEARCHED FOR. 


THIS ROUTINE WILL LOAD A FAILING CHIP 
WITH ONE OF THE DATA PATTERNS WHICH FAILED 
DURING THE MASS BUS TRANSFERS. 


THE CHIP_TBL STORES WHICH CHIPS HAVE FAILED 
AND THIER FAILING PATTERNS. 


FORMAL PARAMETERS: 
TEMP_ARR$BNK __SEL : 
THIS ARGUMENT STORES THE SELECTED ARRAY AND 
BANK SELCECT NUMBER. 
BAD_CHIP 
THIS POINTS TO A FAILING CHIP WHICH IS 
CURRENTLY BEING PM'ED. 
LST_PAT: 
THIS IS A POINTER INTO THE FAILING PATTERN 
PORTION OF THE TABLE. THE FAILING PATTERN 
SEARCH STARTS AT THE LAST FOUND FAIL PATTERN 
oa WILL RETURN WITH FIRST FAILING PATTERN 


ee from .LST_PAT to 14 do 'SEARCH TH CHIP TABLE FOR A FAILING PATTERN 
gin 


case .PAT_SEL from 0 to 14 of 'SELECT A PATTERN 
set 


[OJ : 


7s .CHI°_TBL [C.BAD_CHIP, PAT_O] !DID THIS PATTERN FAIL 
then 


beg 

DMo i "0 LOAD (.TEMP_ARR$BNK SEL,  PEROES? 2 'LOAD CHIP WITH ZEROES 
CHTP~TBL C.BAD_CHIP, PAT_OJ = CLR_FLG; 'CLEAR THIS PAT FLAG 
FLG_REG CF_RAND _DATA] = TLR_ FG: 'CLEAR THE RANDOM FLAG 

return .PAT_SEL? ‘RETURN WHICH PATTERN WAS SELECTED 
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21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI.1 (28) 


{lJ : 


C2] : 


[3] : 


[4] : 


end; 

if .CHIP_TBL C.BAD_CHIP, PAT_1] !DID THIS PATTERN FAIL 

then 
begin 
DM_1_0_LOAD (.TEMP_ARRS$BNK_SEL, ONES) : 'LOAD CHIP WITH ONES DATA 
CHIP-TBL C.BAD_CHIP, PAT_1] = CLR_FL 'CLEAR THIS PAT FLAG 
FLG_REG CF RAND _DATAI = CLR_FLG; CLEAR THE RANDOM FLAG 
ss -PAT_SEL; “RETURN WHICH PATTERN WAS SELECTED 
en 

if not .CHIP_TBL C.BAD_CHIP, RAN_1] 'DID THIS PATTERN FAIL 

then 
begin 
> laa cant QO: 'GEN THE RANDOM DATA BUT DONT LOAD IT 
en 

secaal 

egin 

DM_RAND_LOAD (.TEMP_ARRSBNK_ SLs 'LOAD THE CHIP WITH RANDOM DATA 
CHIP_TBL C P BAD CHIP, RAN_1] = CLR_FLG; 'CLEAR THIS PAT FLAG 
FLG_REG CF_RAND_ DATA) = SET FUG: 'SET THE RANDOM FLAG 
ore -PAT_SEL> (RETURN WHICH PATTERN WAS SELECTED 
en 

if not .CHIP_TBL [.BAD_CHIP, RAN_2] 'DID THIS PATTERN FAIL 

then 
begin 
GEN ODOR PATA QO: ‘GEN THE RANDOM DATA BUT DONT LOAD IT 
en 

sci ti 

egin 

DM_RAND_LOAD (.TEMP_ARRSBNK_ SEL); 'LOAD CHIP WITH RANDOM DATA 
CHTP_TBL [.BAD_CHIP, RAN_2) = CLR_FLG; 'CLEAR mes PAT FLAG 
FLG_REG CF_RAND_ DATA] = SET_ FG: 'SET THE RANDOM FLAG 
eure 4 -PAT_SEL? ‘RETURN WHICH PATTERN WAS SECECTED 
en 

if not .CHIP_TBL [.BAD_CHIP, RAN_3] 'DID THIS PATTERN FAIL 

then 


begin 
2 nate nahi (); 'GEN THE RANDOM DATA BUT DONT LOAD IT 
en 


else 
begin 
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Page 74 
REV A PATCH 00 ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI.1 (28) SEQ 0107 
: 2847 DM_RAND LOAD {. TEMP_ARRSBNK _ sti )i 'LOAD CHIP WITH RANDOM DATA 
; 2868 CHTP_TBC (.BAD_CHIP, RAN_3] = _FLG; 'CLEAR THIS PAT FLAG 
5 2849 FLG_REG cf “RAND DATA] = SET 1 FUE, 'SET THE RANDOM DATA FLAG 
; 2850 return .PAT_SEL; RETURN WHICH PATTERN WAS SECECTED 
3 2851 end; 
3 2852 
; 2853 [5] : 
3 2854 
: 2855 if not .CHIP_TBL C.BAD_CHIP, RAN_4] 'DID THIS PATTERN FAIL 
3 2856 then 
é 2857 ooa'n . 
z 2858 GEN_RANDOM_DATA (); 'GEN THE RANDOM DATA BUT DONT LOAD IT 
; 2859 end 
3 2860 else 
; 2861 begin 
: 2862 DM_RAND_LOAD (.TEMP_ARRSBNK_ StL)5 'LOAD CHIP wiTH RANDOM DATA 
3 2863 CHTP_TBL C.BAD_CHIP, RAN_4J] = CLR_FLG; CLEAR THE PAT FLAG 
; 2864 FLG_REG CF_RAND_ DATA] = SET_ FLG: 'SET THE RANDOM DATA FLAG 
; 2865 return .PAT_SEL; 'RETURN WHICH PATTERN WAS SELECTED 
3 2866 end: 
4 2867 
; 2868 (6) : 
8 2869 
; 2870 if not .CHIP_TBL C.BAD_CHIP, RAN_5] 'DID THIS PATTERN FALIL 
; 2871 then 
; 2872 begin 
3 2873 GEN_RANDOM_ DATA QO; 
: 2874 end 
: 2875 else 
; 2876 begin 
; 2877 DM_RAND_LOAD (.TEMP_ARRSBNK_ SEL); : LOAD CHIP WITH RANDOM DATA 
; 2878 CHIP TBC (.BAD CHIP; RAN_5SJ~= CLR_-FL ‘CLEAR THE PAT FLAG 
3 2879 FLG_REG CF_RAND “DATAJ = SET FUG: 'SET THE RANDOM DATA FLAG 
: 2880 return .PAT_SEL; 'RETURN WHICH PATTERN WAS SELECTED 
; 2881 end; 
é 2882 
; 2883 (7] : 
é 2884 
: 2885 if not .CHIP_TBL [C.BAD_CHIP, RAN_6] 'DID THIS PATTERN FAIL 
F 2886 then , 
; 2887 begin 
: 2888 GEN_RANDOM_DATA (); 'GEN THE RANDOM DATA BUT DONT LOAD IT 
: 2889 end ; 
5 2890 else 
; 2891 begin 
; 2892 DM_RAND_LOAD (.TEMP_ARRSBNK_ SEL): 'LOAD CHIP. WITH RANDOM DATA 
; 2893 CHTP_TBL [.BAD_CHIP, RAN_6) = CLR_FLG; 'CLEAR THE PAT FLAG 
3 2894 FLG_REG CF_RAND_ DATA] = SET FUG: 'SET THE RANDOM DATA FLAG 
: 2895 return .PAT_SEL> (RETURN WHICH PATTERN WAS SELECTED 
: 2896 end; 
f 2897 
: 2898 (8): 


i, 
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| 
| 3 2899 
2 2900 if not .CHIP_TBL C. BAD _SHIP, RAN_7] 'DID THIS PATTERN FAIL 
i 3 2901 on” 
/ 3 2902 BPR R ' 
i 3 2903 GEN_RANDOM_DATA (); 'GEN THE RANDOM DATA BUT DONT LOAD IT 
: 2904 end , F 
3 2905 else ‘. 
is 2906 begin ” 
; 2907 DM_RAND_LOAD (.TEMP_ARRSBNK_SEL); TLOAD CHIP yim RANDOM DATA 
; 2908 CHTP_TBC [.BAD_CHIP, RAN_7] = CLR_FLG; 'CLEAR THE PAT FLAG 
: 2909 FLG_REG CF _RAND _DATA] = SET_FLG; * —'SET THE RANDOM DATA FLAG 
; 2910 return .PAT_SEL> 'RETURN WHICH PATTERN WAS SELECTED 
; 2911 end; 
3 2912 
; 2913 [9] : 
f 2914 
: 2915 if not .CHIP_TBiL [.BAD_CHIP, RAN_8] 'DID THIS PATTERN FAIL 
; 2916 then 
; 2917 begin : 
: 2918 GEN_RANDOM_DATA (); ; 'GEN THE RANDOM DATA BUT DONT LOAD IT 
: 2919 end 
; 2920 else 
; 2921 begin 
: 2922 DM_RAND_LOAD (.TEMP_ARR$BNK_ SEL): 'LOAD CHIP WITH RANDOM DATA 
; 2923 CHTP_TBL C. BAD CHIP, RAN_8) = CLR_FLG; 'CLEAR THE PAT FLAG 
3 2924 FLG_REG CF_RANB “DATA = SET FLGs 'SET THE RANDOM DATA FLAG 
: 2925 return .PAT_SEL; IRETURN WHICH PATTERN WAS SELECTED 
; 2926 end; 
; 2927 
; 2928 [10] : 
; 2929 
: 2930 if not .CHIP_TBL [.BAD_CHIP, RAN_9] 'DID THIS PATTERN FAIL 
: 2931 then 
; 2932 begin 
: 2933 GEN_RANDOM_DATA (); 'GEN THE RANDOM DATA BUT DONT LOAD IT 
: 2934 end 
5 2935 else 
: 2936 begin 
3 2937 DM_RAND_LOAD (.TEMP_ARRSBNK_ SEL): :LOAD CHIP WITH RANDOM DATA 
; 2938 CHTP_TBL [.BAD_CHIP, RAN_9] = CLR_FLG; CLEAR THE PAT FLAG 
; 2939 FLG_REG CF_RAND_ DATA] = SET FUG: 'SET THE * RANDOM DATA FLAG 
; 2940 return .PAT_SEL; ‘RETURN WHICH PATTERN WAS SELECTED 
: 2941 end; 
, 2942 
3 2943 ret7 2 
s 2944 
: 2945 if not .CHIP_TBL [.BAD_CHIP, RAN_10] 'DID THIS PATTERN FAIL 
: 2946 then 
: 2947 begin 
: 2948 GEN_RANDOM_DATA (); 'GEN THE RANDOM DATA BUT DONT LOAD IT 
: 2949 end 


2950 else 





BSKELS 21-Apr-1981 08:40:22 TOPS=20 Bliss-16 V2(212) 
REV A PATCH 00 ROUTINE DECLARATIONS 21-Apr-1987 08:19:06 PA:<NEALE>PMSKL4.BLI.1 (28) 
2951 begin 
2952 DM_RAND_LOAD (.TEMP_ARRSBNK SEL); — !LOAD CHIP WITH RANDOM DATA 
2953 CHTP_TBL C. BAD CHIP, RAN_107 = CLR_FLG; 'CLEAR THE PAT FLAG 
2954 FLG_REG CF_RANB_DATA] = SET_FLG; 'SET THE RANDOM DATA FLAG 
2955 return .PAT_SEL; 'RETURN WHICH PATTERN WAS SELECTED 
2956 end; 
2957 
2958 C12] : 
2959 
2960 if mot .CHIP_TBL C[.BAD_CHI?, RAN_11] 'DID THIS PATTERN FAIL 
2961 then 
2962 peas 
2963 GEN_RANDOM_DATA (); 'GEN THE RANDOM DATA BUT DONT LOAD IT 
2964 end 
2965 else 
2966 begin 
2967 DM_RAND_LOAD (.TEMP_ARRS$BNK_SEL); —!LOAD CHIP WITH RANDOM DATA 
2968 CHTP_TBL [.BAD_CHIP, RAN_117 = CLR_FLG; 'CLEAR THE PAT FLAG 
2969 FLG_REG CF_RAND_DATA] = SET_FLG; 'SET THE RANDOM DATA FLAG 
2970 return .PAT_SEL; “'RETURN WHICH PATTERN WAS SELECTED 
2971 end; 
2972 
2973 [13] : 
2974 
2975 if not .CHIP_TBL [.BAD_CHIP, RAN_12] 'DID THIS PATTERN FAIL 
2976 then 
2977 begin 
2978 GEN_RANDOM_DATA (); 'GEN THE RANDOM DATA BUT DONT LOAD IT 
2979 end 
2980 else 
2981 begin 
2982 DM_RAND LOAD (. TEMP_ARRS$BNK_SEL); —!LOAD CHIP WITH RANDOM DATA 
2983 CHTP_TBL £.BAD_CHIP, RAN_12] = CLR_FLG; 'CLEAR THE PAT FLAG 
2984 FLG_REG [F_RAND_DATA] = SET_FLG: 'SET THE RANDOM DATA FLAG 
2985 return .PAT_SEL; 'RETURN WHICH PATTERN WAS SELECTED 
2986 end; 
2987 
2988 {14] : 
2989 
2990 if .CHIP_TBL [.BAD_CHIP, RAN_13] 'DID THIS PATTERN FAIL 
2991 then 
2992 begin 
2993 DM_RAND_LOAD (.TEMP_ARRSBNK SEL); :LOAD CHIP WITH RANDOM DATA 
2994 CHIP_TBL [.BAD_CHIP, RAN_13] = CLR_FLG; 'CLEAR THE PAT FLAG 
2995 FLG_REG CF_RAND_DATA) = SET_FL G: 'SET THE RANDOM DATA FLAG 
2996 return .PAT_SEL; ~ RETURN WHICH PATTERN WAS SELECTED 
2997 end; 
2995 
2999 tes; 
3000 
3001 end; 
3002 


a 
eS SS 
ee Pe ee ee Pee 2 . eee ee ee ee ee ee 
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'RETURN NEGITIVE ONE IF ALL PATTERN FLAGS ARE CLEARED 


+ BAD.CHIP,* 


: LST.PAT,PAT.SEL 
PAT.SEL 


PAT.SEL,* 


TEMP. ARRSBNK . SE, * 


TEMP. ARR$BNK.SE,* 


+ TEMP. ARRSBNK.SE,* 


return <1; 
end; 
gf HD L.FAILING.CHIP ROUTINE DECLARATIONS 
0000006 be FAILING. CHIP 
JSR ” R1,$SAVE2 
000012 MOV 12(SP),R0 
ASL RO 
026626' MOV #CH4HIP.TBL,R2 
ADD RO,R2 
000010 ort 1OCSP), R1 
000560 1$: JMP oy 4$ 
2$: MOV R1,RO Fs 
ASL RO 
005326° ADD 3$(RO) ,PC 
3$: . WORD 4$-3$ 
.WORD 5$-3$ 
WORD /7$-3$ 
WORD 8$-3$ 
WORD 9$-3$ 
. WORD 10$-3$ 
WORD 11$-3$ 
WORD 12$-3$ 
WORD 13$-3$ 
WORD 14$-3$ 
wORD 15$-3$ 
WORD 16$-3$ 
WORD 17$-3$ 
WORD 18$-3$ 
. WORD 21$-3$ 
040000 4$: BIT #40000, (R2) : 
PEQ 1$ 
000014 MOV 14(SP) ,-(SP) Z 
CLR -(SP) 
174460 JSR PC,DM.1.0.LOAD 
040000 nS #40000, (R2) ; 
020000 5$: BIT #20000, (R2) 2 
BEQ 1 
014 MOV 14(SP) ,-(SP) s 
177777 MOV #-1,-(5 ) 
174430 JSR PC,DM.1.0.LOAD 
020000 BIC #20000, (R2) 5 
0040 037020" 6$: BICB #40, FLG. REG i 
CMP (SP)+, (SP)+ 5 
000416 JMP 2 j 
010000 7$: BIT #10000, (R2) 
BEQ 19$ 
000014 MOV 14(SP) ,-(SP) 
173776 JSR PC,DM.RAND.LOAD 
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2743 
2788 


2780 


2783 
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010000 
004000 
000014 
173752 
004000 
002000 
000014 
173726 
002000 
001000 


000014 


000400 


000014 
173634 
000200 


000100 


000100 
000040 
000014 
173564 
000040 
000020 
000014 
173540 
000020 


000010 


8$: BIT 


9$: BIT 


10$: BIT 


B 
11$: BIT 


12$: TSTB 


13$: BITB 


BR 
14%: BITB 


15$: BITB 


16$: BITB 
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#10000, (R2) 
#4000, (R2) 
19$ 


14(SP) ,-(SP) 
PC,DM.RAND.LOAD 
#4000, (R2) 


22$ 

#2000, (R2) 
19% 

14(SP) ,=(SP) 


PC ,DM.RAND.LOAD 
#2000, (R2) 


2e$ 
#1000, (R2) 
19$ 


14(SP) ,-(SP) 
PC,DM.RAND.LOAD 
#1000, (R2) 


22 

#400, (R2) 

19$ 

14(SP) ,-(SP) 
PC,DM.RAND.LOAD 
#400, (R2) 


22$ 
(R2) 


19$ 

14(SP) ,=(SP) 
PC,DM.RAND.LOAD 
#200, (R2) 


22$ 

#100, (R2) 

19$ 
14(SP),-(SP) 

PC, DM. RAND .LOAD 
#100, (R2) 

22$ 

#40, (R2) 

14(SP) ,=(SP) 
PC, DM. RAND.LOAD 
#40, (R2) 

22$ 

#20, (R2) 

14 (SP) ,=(SP) 
PC, DM, RAND.LOAD 
#20, (R2) 


22$ 
#10, (R2) 
19$ 
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Bo Be Be Be Be Be Be Be Be Be Be Be Be Be Be Be Se Se Fe Be Be Be Be Be Be Be Be Se Be Be Be Be Be Be Be 


Be Be Be Be Be 


Pe Be Be Be 


TEMP. ARR$SBNK. SE ,* 


TEMP. ARR$BNK.SE,* 


TEMP. ARRSBNK.SE,* 


TEMP .ARRSBNK.SE,* 


TEMP.ARRS$BNK .SE,* 


TEMP .ARRSBNK.SE,* 


TEMP. ARRSBNK .SE,* 


TEMP.ARRSBNK .SE, * 


Page 78 
SEQ 0111 


OC SC Or 


| BSKELS 
_ REV A PATCH 00 ROUTINE DECLARATIONS 
/ 005744 016646 000074 
005750 004767 173514 
005754 142712 000010 
000440 
005762 132712 000004 


005770 Dg oe 000014 


006004 000426 

006006 132712 000002 
001003 

006014 004767 172550 

6 0004 

006022 016646 000014 

006026 004767 173436 

000002 

000001 

006046 016646 000014 

006052 004767 173412 


006056 142712 000001 
006062 152767 000040 037020" 


006100 020127 000016 
003002 

006106 000167 177204 

006112 012700 177777 


; Routine Size: 206 words. : 
; Maximum stack depth per invocation: 


Ww 
soon 
— — 
SaSr 
=" aS) 
NEN 
oe _ 
snr 


178: 


18$: 
19$: 
208: 


218: 


223: 
238: 
248: 


258: 


5 words 
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14(SP) ,=(SP) 
PC,DM.RAND.LOAD 
#0, (Re) 


#4, (R2) 
19$ 


14(SP) ,=(SP) 
Tat Teena 


223 

pa 
PC,GEN.RANDOM. DATA 
245 

14(SP) ,-(SP) 
PC,DM.RAND.LOAD 
#2,(R2) 

223 

#1, (R2) 

24$ 

14(SP) ,-(SP) 
PC,DM.RAND.LOAD 
#1,(R2 
#40,FLG.REG 
(SP) + 

R1,R0 
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TEMP. ARRSBNK. SE ,* 


; TEMP.ARRSBNK.SE,* 


TEMP. ARRSBNK .SE,* 


TEMP. ARRSBNK .SE,* 


PAT.SEL,* 


PAT.SEL 
PAT.SEL,* 
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routine L_ERROR_MAP (TEMP_ARRSBNK SEL, BAD_CHIP) : novaiue = 


' 
i 
i 
i 
i 
i 


++ 


begin 


FUNCTIONAL DESCRIPTION: LOAD THE ERROR MAP 


THE ERROR MAP STORES BY SECTOR ALL THE 
NEWLY FAILING ROWS. THE FAILING COLUMN 
ADDRESS CAN BE CALCULATED BY ADDING THE 
ROW NUMBER TO THE SECTOR NUMBER. 


THIS ROUTINE SEARCHES THE TESTED BANKS 

LOOKING FOR BAD ROWS AND ALL SECTORS. > 
IF A BAD ROW IS DETECTED THEN THAT ROWS 

BIT POSITION IN THE ERROR MAP AT THIS 

SECTOR IS SET INDICATING THAT A BAD ROW 

WAS FOUND AT THIS SECTOR. 


FORMAL PARAMETERS: 
TEMP_ARRSBNK_SEL : 
asp é io ARGUMENT STORES THE ARRAY AND BANK SELECT NUMBER 
HIP: 

“ THIS ARGUMENT POINTS TO A FAILING WHICH IS PRESENTLY 
BEING TESTED. DIVIDING THIS ARG BY 4 GIVES THE NIBBLE 
POSITION IN THE ML-11 WORD AND THIS ARG MOD 4 GIVES THE 
CHIPS BIT POSITION WITHIN ITS NIBBLE. 


local 


WRD_INDEX, ‘POINTS TO A WORD IN THE ERROR MAP 

BIT_INDEX, ‘POINTS TO A BIT_IN THE ERROR MAP 

RAND_INDEX, 'SECTOR RANDOM STARTING POSITION 

DIAG_REG_SEL, 'SELECT DATA DIAG REG WHERE FAILING CHIP RESIDES 
BIT_SEL, 'SELECT THE FAILING CHIP POSITION 

OFFSET; 'FIRST SELECTS DATA DIAG REG; SECOND SELECTS RANDOM DATA OFFSET 


BAD CHIP / 16 AND BAD_CHIP MOD 16 WILL 
POINT TO WHICH DIAGNOSTIC REGISTER THE BAD 
CHIP CAME FROM AND THE BITS 

POSITION WITHIN THE REGISTER. 


OFFSET = .BAD_CHIP/16; ‘CALCULATE WHICH DATA DIAG REG TO READ 
BIT_SEL = -BAB_CHIP mod 16; iCALCULATE FAILING CHIPS BIT POSITION 

i OFFSET VALUES 2 = MLE2 = 14; 

! O = MLDI = 15; 

1 = MLD2 = 16; 

if OFFSET eqi 2 ‘1S BAD CHIP DIVIDED BY 16 EQUAL TO 2 


Pa 80 
SEQ°0113 


——_—_ -—_—_--—__ SS -— Oehvwn— SS 
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| 3 3057 —_ | 
g 3058 begin 
3059 4) G_REG_SEL = 3 ‘SELECT DATA DIAG REG MLE2 


sey \- T_SEL = .BIT_ sei + 8; 'THIS REGISTERS DATA BITS STARTS IN HIGH BYTE | 
om 


else 
Ser DIAG_REG_SEL = .OFFSET + 133 '0 + 15 = MLD1; 1 + 15 = MLD2 
3065 if .FLG_REG CF_RAND DATA] then OFFSET = 2 else OFFSET = ZERO; ‘OFFSET = 2 IF RANDOM DATA 


066 
3067 DM_RD_TRANSFER (SIZE = -256, DST = RD_BUF, SRC = .TEMP_ARRSBNK_SEL) 
3068 RAND_INDEX = ZERO; \THE FIRST SECTORS ~DATA’ STARTS AT WORD ZERO 


309 ee from 0 to .BNK_NUM_SEC do !READ ALL SECTORS IN FAILING CHIP 
BREAK; 
3074 incr ROW_NUM from 0 to 127 do 'READ ALL WORDS IN FAILING CHIP 
'CLOCK DATA INTO THE DATA DIAG REGISTERS 


if “unt BUF [.RAND_INDEX + .ROW mate .BIT_SEL, ONE, ZERO] neq .ML_ADDR C.DIAG_REG_SEL, .BIT_SEL. 
ONE, ZEROJ iS WRITE BUF DATA EQL DATA DTAG REGISTERS DATA 


then 


.ROW_NUM/16; 'CALCULATE ERROR MAP WORD OF FAILING ROW 
Rw, NUM mod. 16: 'CAOCULATE ERROR MAP BIT Pos a ee ROW 
3084 ERROR_MAP C.SEC_NUM, INDEX, .BIT_INDEX, ONE, ZERO] = 
3085 aut REG CF “ERR. “HAP ENTERED = SET _FLG; 'FLAG THAT ERROR ne "ns° ENTERED 
en 


end; 


aa sea INDEX = .RAND_INDEX + .OFFSET; 'THE NEXT SECTOR STARTS 2 WORDS DEEPER IF RANDOM DATA 
en 


3093 CLR_MBUS; 'CLEAR THE SINGLE STEP DMA MODE 
094 end: 


ee eee ee ee ee ee ee ee ee Oe ee ee ee ee ee eee ee ee 
W WW WNWAWWANWWNWANW 
oc felololelelelololeololololeo) 
co 00000000 SI NNN NN NNNN 
NOOO N eles) WN — OC OONAUFSWNR—O _ 
whos 
ro 
—te 
oO 
2s e 
“4 x 
ee | 
zZz2 
[09 
mm 
=< &< 
“wu 
re 


+ lie L.ERROR.MAP ROUTINE DECLARATIONS 
R1,$SAVE5 : 3005 


#22,SP 
MOV 40(SP) ,-(SP) ; BAD.CHIP,* 3047 
MOV #20,-(SP) , 

JSR PC,.BLSDIV 

MOV RO,R4 3 *, OFFSET 

MOV 44(SP), (SP) ; BAD.CHIP,* 3048 
MOV #20,~(SP) 


PC ,BLSMOD 
MOV RO,6(SP) ; *,BIT.SEL 


L.ERROR.MAP 
J 





020427 
001006 


ROUTINE DECLARATIONS 
000002 - 

000016 

000010 000006 
000017 

000040 037020" 
000002 


177400 


0000 
037014" 000016 


036772" 
000024 000032 
000032 
000020 
036772" 
000024 
000014 
001232" 


000014 
000001 


0000006 
000006 


036772" 


1$: 
2$: 


3$: 
4$: 


5$: 
6$: 


Ll 9 
led 
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R4,42 
1$ 
#10,6(SP) 
2$ 
R4,R2 
#17,R2 
#40,FLG.REG 
3$ 
#2,R4 
4$ 
R4 
#-400, (SP) 


(SP) , SIZE 
#RD.BUF , (SP) 


RC 
PC ,DM.RD. TRANSFER 
14 (SP) 
BNK .NUM.SEC,16(SP) 


L -ADDR,R3 
24(R3) , 32(SP) 
32(SP), R 
#20,R 
ML. ADDR R3 
RO.24(R3) 

R1.R3 
TEUSP) RB 
R3 
#WRT .BUF ,R3 
R3,-(SP) 
14(SP) ,-(SP) 
#1,-(SP) 
-(§P) 

PC ,BL$GT2 
#6. SP 
ML .ADDR,RO 

(RO), 32(SP) 
#32, (SP) 

SP, (SP) 
14(SP) ,-(SP) 
#1,-(SP) 
-(§P) 

PC ,BL$GT2 
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OFFSET,* 
* ,.DIAG.REG.SEL 


* ,BIT.SEL 


e . 


OFF SET, DIAG.REG.SEL 


* ,.DIAG.REG. SEL 


; *, OFFSET 
; OFFSET 


TEMP.ARRSBNK.SE,* 
RAND . INDEX 
SEC .NUM 


ROW. NUM 

* ML .REG 

ML .REG,MLREG 
* -MLREG 
MLREG,* 


ROW. NUM, * 
RAND. INDEX, * 


BIT.SEL,* 


* ,ML.REG 


ML .REG,* 
Bi .SEL.* 


Pa 82 
SE0°0115 


3056 
3059 
3060 
3056 
3063 


3065 


3078 


3079 


3078 


‘imeneeae _—--—— ——— —— 
] 


| BSKELG 
REV A PATCH 00 


; Routine Size: ; ; 
: Maximum stack depth per invocation: 





ROUTINE DECLARATIONS 


000070 


G 
000004 037020" 


000016 


000026 


000024 


036772" 
000010 
000034 


192 words 


7$: 


8$: 


26 words 
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#10,SP 


° 


& 
R1,-(SP) 
#20,-(SP) 
PC ,BL$DIV 
RO. 26(SP) 


PC,BLS$MOD 
> el 


RO 

RO 

30(SP) ,RO 

RO 

#ERROR .MAP ,RO 


(SP) ,-(SP) 
PC ,BL$PU2 

#4,FLG.REG 
#14,SP 


R1 
R1,4177 
6$ 
tac 
R5,16(SP) 
5$ 


ML.ADDR,R1 
10(R1) ,26(SP) 
26(SP) .RO 
#40,RO 
ML.ADDR,R1 
RO.10(R1) 
ML.ADDR,R1 
10(R1) ,24(SP) 
24(SP) RO 

ML .DUT.R5 
#177770,R5 
acon 


oR 
ML.ADDR,R1 
RO,10(R1) 
#34 ,SP 
PC 
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WRD. INDEX,* 


BIT. INDEX,* 


ROW. NUM 
ROW.NUM, * 


OF FSET ,RAND. INDEX 
SEC .NUM 
SEC.NUM,* 


* ,ML.REG 
ML.REG,MLREG 
* ,MLREG 


; MLREG,* 


* ,ML.REG 
ML ..REG,MLREG 


* ,MLREG 
* ,MLREG 


MLREG,* 
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sE0°0116 


3082 


3083 


3084 


$005 


N 9 
21-Apr-1981 08:40:22 TOPS=20 Bliss-16 V2(212) 


SKELS Page 84 
| REV A PATCH 00 ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI.1 (30) SEQ 0117 
3095 routine X_TMP_BLST_TBL (TEMP_ARRSBNK_SEL, ALL_BAD_CNT) : novalue = 
3096 begin 
3097 
3098 i++ 
$00 FUNCTIONAL DESCRIPTION: TRANSFER TEMP BLAST TABLE TC MAIN BLAST TABLE 
3101 THE TEMP BLAST TABLE STORES THE NIBBLE NUMBER, 
3102 ROW/COLUMN NUMBER AND A R/C SELECT FLAG FOR A 
aS ROW/COLUNM WHICH HAS BEEN SELECTED FOR BLASTING. 
3105 ONCE IT IS DETERMINED THAT THIS CHIP IS NOT ALL 
06 BAD (ie. > 10 ALL BAD ROW/COL) THEN THIS TEMP BLAST 


; 

' 

i 

: 

TABLE IS XFERED INTO THE MAIN BLAST TABLE. 

THIS TABLE IS NEEDED BECAUSE ONCE THIS INFORMATION 
: 1S FERED INTO THE MAIN BLAST TABLE THERE IS NO WAY 
OF KNOWING WHICH CHIP THIS BAD ROW/COL CAME FROM. 

i 

i 

i 

i 


THERFOR MAKING IT IMPOSSIBLE TO DELETE A ROW/COL 
FROM THE BLAST TABLE ONCE IT HAS BEEN LOADED INTO IT. 


FORMAL PARAMETERS: 
TEM_ARRS$BNK_SEL : 
THIS ARGUMENT STORES THE ARRAY AND BANK SELECT 
NUMBER 


Oe ee ee ee ee ee ee ee eee ee ee ce ee ee 2 eee ee 


ALL_BAD_CNT: 
THIS ARGUMENT TELLS THIS ROUTINE HOW MANY 
REMAINDER TABLE ENTRIES TO XFER INTO THE 
THE MAIN BLAST TABLE. 


me ee ae ak ed td ot ad I od os 


ROPOMOPUNPOAPONINDDN 2 2 Pwr Oe 
OOWNANEWO 0 OONAUEWN-OOON 


WWWANWWNWWWNIWNWNWNWNWNNWNWNWNNWWNNAN NANA WAAAY 


local 

_NUM; 'POINTS TO FAILING BANK 

: BNK_NUM = .TEMP_ARR$BNK_SEL<.BNK_SEL_POS, BNK$SEL_SIZE>; ‘CALCULATE THE FAILING BANK 

130 incr CNT from 0 to .ALL_BAD_CNT do ' TRANSFER TEMP BLAST TABLE TO BLAST TABLE 

132 i? .TMP_BLST_TBL C.CNT, R_C] eql 1 'IS THIS A FAILING ROW 
Ps then . 
; 134 BLAST_TBL C.BNK_NUM, .TMP_BLST_TBL (.CNT, R_C_NOJ, .TMP _BLST_TBL C.CNT, NIBNOJ, ONE, ZERO] = 
; iZ SET_F[G ‘LOAD THE BLAST TABLE WITH THE FAILING ROW NO. AT THIS NIBBLE 
4 se 
; 137 BLAST_TBL C.BNK_NUM, .TMP_BLST_TBL C.CNT, R_C_NO] + .COL_BASE, .TMP_BLST_TBL [.CNT, NIB NOJ, ONE, 
: Fs ZFRO) = SET_FLG; ‘LOAD TRE7BLAST WITH THE FAILING COLUMN AT HIIS NIBBLE NO. 
: 140 end; 

.SBITL X.TMP.BLST.TBL ROUTINE DECLARATIONS 

006720 004167 0000006 x. TMP.BLST.TBL: 


JSR R1,$SAVE3 : 0995 
006724 012746 000016 MOV #16,-(SP) ; 2104 


— 
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, 006730 060616 ADD SP, (SP) ; TEMP. ARRSBNK.SE,* 
| 006732 016746 037012" MOV BNK. SEL .POS,=(SP) 
006736 012746 000002 MOV #2,-(SP) 
006742 005046 CLR -(SP) 
| 006744 9004767 000000G JSR PC ,BLSGT2 
006750 000300 SWAB RO 3 3134 
006752 105000 CLRB RO 
006754 300 ASL RO 
006756 010003 MOV RO,R3 


R1 
006770 012700 026744" MOV #TMP .BLST.TBL,RO 
100 R1,RO 


: 
o 


2$ 
007002 011001 MOV (RO) ,R1 Z 3134 
007004 R1 


0062 R1 
007014 042701 177400 BIC #177400,R1 
0c 000411 BR 
007022 011001 2$: MOV ean 3 3137 


0062 R1 
007034 042701 177400 BIC #177400,R1 
007040 066701 036770" ADD COL .BASE ,R1 
007044 060301 3$: ADD le 3 3138 


00630 R 

007050 062701 026770' ADD #BLAST.TBL,R1 
007054 010146 MOV R1,-(SP) 

007056 111046 MOvB (RO) ,-(SP) 

007060 042716 177760 BIC #177760, (SP) 
007064 000001 MOV #1,-(SP) 

007070 011646 MOV (SP) ,=(SP) 

007072 004767 0000006 JSR PC ,BL$PU2 

000010 ADD #10,SP : 31 


R2 : CNT 
007104 020266 000022 4%: CMP + alate : CNT,ALL.BAD.CNT 
007112 706 000010 ADD #10,SP ; we 
PC 309 


: Routine Size: 64 words 


| 

006760 005002 CLR R2 ; CNT 3130 
006762 000450 BR 4$ 

006764 010201 i$: MOV R2,R1 3; CNT,* 3132 
006301 

: Maximum stack depth per invocation: 12 words 
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ROUTINE DECLARATIONS 21-Apr-19 
routine X_TO_LREM_TBL (REM_PTR) = 
begin 
++ 
FUNCTIONAL DESCRIPTION: TRANSFER COLUMN COUNT TABLE TO T. “AINDER TABLE 


ome meme 


ONCE THE ERROR MAP AND THE COLUMN COUNT TABLES 
HAVE SEARCHED FOR ALL BAD ROWS AND COLUMNS ALL 
THAT REMAINS ARE SINGLE CELL FAILURES A SCATTERED 
THROUGH OUT THE MOS RAM. 


THIS ROUTINE XFERS ALL THE REMAINING ROW COLUMN 
ADDRESS PAIRS OF THE REMAINING FAILURES INTO 
THE REMAINDER TABLE WHERE THEY ARE INTERIGATED 
AND THE BEST BLAST SELECTION IS DETERMINED. 


FORMAL PARAMETERS: 
REM_PTR 
THIS ARGUMENT WILL FIRST POINT TG THE 
STARTING TABLE POSITION WHERE THE FIRST 
XFERED ROW/COLUMN PAIR IS TO GO. 


ONCE THE ROUTINE IS COMPLETED THIS ARGUMENTS 
VALUE IS RETURNED TO INDICATE HOW MANY ROW/COL 
PAIRS WERE XFERED INTO THE REMAINDER TABLE. 


local 
WRD_INDEX, ‘STORES THE ADJACENT ROW ADDRESSES WORD POSITION 
BIT_INDEX, 'STORES THE ADJACENT ROW ADDRESSES WORD BIT POSITION 
ROW_NUM, 'STORES A COLUMNS ADJACENT ROW NUMBER 
ADJACENT_CNT, 'STORES THE NUMBER OF ADJACENT ROW ADDRESSES FOUND 
START_SET, ‘VARIABLE SECTOR STARTING ADDRESS 
END_SEC; 'VARIABLE SECTOR ENDING ADDRESS 
nef ~~ ate from 0 tuo .MAX_CHIP_COL -.1 do ‘SEARCH COLUMN COUNT TABLE 
egin 
4s -COL_CNT_TBL £C.COL_NUM] nea ZERO 'DOES THIS LOCATION HAVE A COUNT IN IT 
then 
begin 
if .COL_NUM gtr 127 'IS THIS A 64K CHIP 
then 
begin 
ROW_NUM = .COL_NUM = 128; 'THE FIRST COLUMN ADDRESS STARTS AT 128 
START SEC = 258; ‘THE FIRST SECTOR STARTS AT 256 
END _SEC = 511; 'THE END SECTOR ENDS AT 511 
en 
else 
begin 
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START_SEC = ZERO; 'THE START SECTOR STARTS AT ZERO 
ROW_NUM = ~COL_NUM; ‘AT THE FIRST SECTOR THE COLUMN = 
if .BNK_NUM_SEC eqi 127 then END_SEC = 127 else END_SEC = 255; !IS THIS A 16K CHIP 
end; 


' 

i NOW SEARCH THRU THE ERROR MAP AND FIND THIS COLUMNS 

i ADJACENT FAILING ROWS USING ROW_NUM AS A POINTER TO THE 
' ADJACENT ROW. 


ADJACENT_CNT = ZERO; 'CLEAR THE ADJACENT COUNT 

incr SEC. NUM from .START_SEC to .END_SEC do 'SEARCH ALL THESE SECTORS 
e 
WRD_INDEX = .ROW_NUM/16; ‘CALCULATE WHICH WORD THIS ROW IS IN 


J . ERROR_MAP C.SEC_NUM, .WRD_INDEX, FULL_WRDJ neq ZERO !IS THIS ROW BIT SET 
then 


begin 
BIT. INDEX = .ROW_NUM mod 16; 'CALCULATE THE ROWS WORD BIT POSITION 


2 -ERROR_MAP [.SEC_NUM, .WRD_INDEX, -BIT_INDEX, ONE, ZEROJ eql 1 
then 


begin 

ADJACENT_CNT = .ADJACENT_ * +1; ‘UP THE ADJACENT COUNT 

REM TAL T.REM_PTR, COL] = L_NUM; 'LOAD THE REM_TBL WITH THIS COLUMN NO. 
COPTED_REM_TBL C.REM_PTR, tol i= . COL_NUM; 'LOAD THE COPIED TABLE TOO 


selectone .SEC_NUM of 'FIND WHICH PHYSICAL ROW NUMBER THIS IS 
set 


[0 to 127, 256 to 383] : ‘ARE WE IN QUAD 0 OR 2 
Bea Tt TBL C.REM_PTR, ROW] = .WRD_INDEX*16 + .BIT_INDEX; 
corte REM_TBC [.REM_PTR, ROW]7= .WRD_INDEX*®16~+ .BIT_INDEX; 
hina to 255, 384 to 511] : !ARE WE IN QUAD 1 OR 3 
BE beat TBL C.REM_PTR, ROW) = .WRD_INDEX*16 + .BIT_INDEX + 128; 
COPIED “REM_TBE C.REM_PTR, ROW]~= .WRD_INDEX*167+ .BIT_ INDEX + 128; 
— 
REM_PTR = .REM_PTR + 1; !UP THE REM_PTR POINTER 
if ,ADJACENT_CNT eql .COL_CNT_TBL C.COL_NUM] then exitloop; 


end; 


Pa 87 
SEQ°0120 


SS 


004167 


end; 


10 


E 
21-Apr-19 
21-Apr-19 


ROW_NUM = (.ROW.NUM = 1) and %0°177°; 


end; 
end; 
end; 


return .REM_PIR; 
end; 


0000006 


000014 
036774' 000012 


000520 


000200 
000400 000010 
000777 000002 


037014" 000177 
000177 000002 
000377 000002 


000012 
000010 


000020 
0000006 


000012 


600012 


2$: 


53: 


.SBTTL 
X.7TO.REM. TBL: 
JSR 


'RETURN HOW MANY ROW COLUMN PAIRS WERE XFERED 


TOPS=20 Bliss-16 v2(212) 
PA:<NEALE>PMSKL4.BLI.1 (31) 


X.TO.REM.TBL ROUTINE DECLARATIONS 


R1,$SAVE5 
#14,SP 


MAX. CHIP.COL,12(SP) 


= (SP) 
17$ 


(SP) ,R4 
COL.CNT.TBL(R4) 
2$ 

16$ 

© sates 


3 

(SP) ,R1 
#400,10(SP) 
#777 ,2(SP) 


(SP) ,R1 
BNK .NUM. SEC ,4177 


4$ 
#177,2(SP) 
#377 ,2 (SP) 
12(SP) 
10(SP) ,R4 
RG 

158 
R1,-(SP) 
#20,-(SP) 


PC ,BLSDIV 
RO,12(SP) 


RO 
RO 
RO 


RO,R5 
12(SP) ,R5 


'DECREMENT THE ROW COUNT AND AVOIDE OVER RUN 


; COL.NUM 


COL .NUM, * 


COL .NUM,* 


; COL.NUM,ROW.NUM 
NUM 


* ,ROW 


. «START .SEC 


* ,END.SEC 


START .SEC 
COL .NUM,ROW.NUM 


*,END.SEC 


* 
° 


ND. SEC 
ADJACENT .CNT 
START.SEC,SEC.NUM 
SEC .NUM 


: ROW.NUM,* 


* ,WRD. INDEX 
SEC. * 


WRD.INDEX,* 


Pa 88 
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_-— SS 


ROUTINE DECLARATIONS 


006626" 


000901 
0000006 
000010 


000022 
000044 


000400" 


000010 
000710° 


000010 


000177 
000400 
000577 
000016 


000014 


000200 
000377 
000600 
000777 
000016 


7$: CMP 


8%: MOV 


of: CMP 


10$: CMP 


118: MOV 


F 10 


21-Apr-1981 08: 
981 0 


21-Apr-1 


RS 

ERROR .MAP(RS) 
R1,-(SP) 
#20,-(SP) 

PC ,BL $SMOD 


RO,14(SP) 
MERROR .MAP ,=( SP) 


= (SP) 

PC ,BL$GT2 
#10,SP 

RO 

13$ 

22(SP) 
44(SP) ,R5 
R5 
#REM.TBL,R2 
R5,R2 


10(SP), (R2) 
#COPIED.REM. TRL R3 


R5,R3 
10(SP),(R3) 
R4 

7$ 
R4,4177 
8$ 
R4,4400 
9$ 
R4,4577 
9$ 

16(SP) ,RO 
R 


R 
14(SP) ,RO 
RO, 1(R2) 
RO, 1(R3) 
12$ 

R4, #200 
10$ 

RG, #377 
11$ 

R4, #600 
12$ 

RG, #777 


i2$ 
16(SP) ,RO 
RO 


TOPS=20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI1.1 


s SEC 


ROW. 


BIT. INDEX,* 


ADJACENT .CNT 


REM. 


COL. 


COL. 
SEC. 
SEC. 


SEC 


WRD. 


BIT. 


SEC. 
SEC 
SEC. 


; SEC. 


WRD. 


NUM, * 


; *,BIT. INDEX 


PTR,* 


NUM, * 


NUM, * 
NUM 


NUM, * 


«NUM, * 
«NUM, * 


INDEX,* 


INDEX,* 


NUM, * 


-NUM, * 


NUM, * 
NUM, * 
INDEX,* 
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3214 


3216 


3219 
3220 


3221 


3223 


3228 


3229 
3223 
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Rout ine Size: 
; Maximum stack 


ROUTINE DECLARATIONS 


000014 


177246 
000034 
000076 


188 words. f 
depth per invocation: 


128: 


13$: 


148: 


158: 


16$: 
17$: 


18$: 


21 words 


G 10 
21-Apr=198 
21-Apr=198 


-2-— 
oO 
0 G0 
ays 
vt) 

iw 

nm 


RO 
RO 


RO 
14(SP) ,RO 
RO,R5 


R5 

10(SP) ,R3 
COL.CNT.TBL(R3),R5 
22(S 5 


1 

#10,SP 

16$ 
(SP)+,(SP)+ 
R1,R5 

RS 

R5,R1 
#177600,R1 
(SP) +, (SP)+¢ 
RG 

R4,2(SP) 

6$ 

(SP) 

(SP) ,14(SP) 
18$ 

1$ 
34(SP),RO 


#16,S5P 
PC 


TOPS=20 Bliss-16 V2‘212) 
PA:<NEALE>PMSKL4.8L1.1 (31) 


BIT. INDEX,* 


REM.PTR 
COL «NUM, * 
ADJACENT.CNT,* 


ROW.NUM, * 


; *,ROW.NUM 


* ,ROW.NUM 
SEC.NUM 

SEC .NUM,END. SEC 
COL .NUM 

COL .NUM, * 


REM.PTR,* 
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1S COLUMN LAST IN TABLE 


-QUANTITY do 
QUANTITY, RO_CLI; 


(32) 


‘PURGE THE COLUMNS IF REMAINDER TABLE ENTRIES > 1 


BSKELSG 
| REY A PATCH 00 ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 
; 3256 rout‘ne COL_PURGE (COL_SEL, QUANTITY, LST_REM_ENTRY) : novalue = 
; 3257 begin 
3 3258 
; 3259 lee 
: asey FUNCTIONAL DESCRIPTION: COLUMN PURGE 
F 3262 =! THE REMAINDER TABLE IS LOADED WITH ALL THE 
‘ 3263 |! THE REMAINING SINGLE CELL FAILURES SCATTERED 
| 3 3264 —! THROUGH OUT THE CHIP. THIS REMAINDER TABLE 
| é 5263 1S INTERIGATED FOR THE BEST POSSIBLE CHOICE 
; 3509 FOR ROW OR COLUMN SELECTION FOR BLASTING. 
: 3268 3! ONCE A ROW OR COLUMN IS SELECTED FOR BLASTING 
3 3269 ! IT OCCURANCE IN THE REMAINDER TABLE MUST BE 
| 3 $559 : TAKEN OUT. 
é Sela ¢ THIS ROUTINE WILL SEARCH THE REMAINDER TABLE 
ge. 3273 |! OF A SELECTED COLUMN FOR BLASTING AND PURGE 
is 3274! THE TABLE OF ITS OCCURANCE AND ALSO ITS 
| ; 3275: ROW PAIR ADDRESS. 
; 3276 =! 
3 S277 
; 3278 |! FORMAL PARAMETERS: 
: 3279 | COL. SEL: 
3280 =! THIS ARGUMENT POINTS TO THE COLUMN SELECTED 
3 }*. | ee FOR BLASTING AND THE COLUMN TO BE PURGED FROM 
; 3282 =! THE TABLE. 
; 3283 |! QUANTITY 
Ps 3284 |! INDICATES HOW MANY OCCURANCES OF THIS COLUMN 
; 3265 TO EXPECT TO FIND IN THE TABLE. 
5286} LST_REM_ENTRY: 
‘ 3287 “POINTS TO THE LAST TABLE ENTRY + 1 
3288 i-- 
; 3289 
: 3290 if .LST_REM_ENTRY gtr ONE 
z 3291 then 
3595 vac 
; _ 3294 incr PUR_LOC from 0 to .LST_REM_ENTRY = 1 do ‘PURGE THE REMAINDER TABLE OF THIS COLUMN 
; SSaz begin 
; 3297 if .REM_TBL [.PUR_LOC, COLJ eqi .COL_SEL ‘TS THIS COLUMN TO BE PURGED 
; 3298 then 
§ 3299 begin 
; 3300 
: 3301 if (.PUR_LOC * .QUANTITY) meq .LSTLREM_ENTRY =! IS TH 
; 3302 then 
; 3303 begin 
: 3304 
. 3305 incr PURGE from .PUR_LOC to (.LST_REM_ENTRY = 1) = 
; 3306 REM_TAL [. PURGE,~RO_CL] = .REM_TBE [.PURGE + 
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: 3308 incr COPY from 0 to .LST_REM_ENTRY = .QUANTITY do ‘COPY REM TBLL TO COPIED TBL 
; 3508 COPIED_REM_TAL C.COPV, RO_CLJ = .REM_TBL C.COPY, RO_CLI; 
; 3311 end; 
: 3312 
3 3313 exitloop; ‘EXIT THE LOOP WHEN PURGE IS -COMPLETE 
| @ 3314 end: 
2 3315 
is 3316 end: 
3 3317 
| 3 3318 end; 
; 3319 
| ; 3320 end: 
.SBITL COL.PURGE ROUTINE DECLARATIONS 
0000006 COL .PURGE : 
JSR R1,$SAVE5 z 3256 
TST -(SP) 
000020 MOV 20(SP),R5 3 LST.REM.ENTRY,* 3290 
000001 CMP RS,@1 
BLE 8$ 
CLR (SP) ; PUR.LOC 3294 
BR 7$ 
1$: MOV (SP) ,R1 ; PUR.LOC.* 3297 
ASL R1 
CLR RG 
000400 BISB REM. TBL(R1) RS 
000024 cmp R4,24(SP) : *,COL.SEL 
BNE 6$ 
000022 MOV 22(SP) ,R3 : QUANTITY,* 3301 
MOV R3,RO 
ADD (SP) ,RO ; PUR.LOC,* 
CMP RO,R5 
BEQ 8$ 
MOV R5,R2 3 3305 
SUB R3,R2 
MOV (SP) RS ; PUR.LOC,PURGE 
DEC R4 ; PURGE 
BR 3$ 
2%: MOV R4,RO : PURGE,* 3306 
ASL RO 
MOV R3,R1 
ADD R4,R1 ; PURGE,* 
ASL R1 
000400" 000400° MOV REM, TBL (R11), REM. TAL (RO) 
3$: INC RG ; PURGE 3305 
(MP R4,R2 3 PURGE,* 
BLT 2$ 
MOV R5,R2 3 3308 
SUB 3,R2 


R 
CLR RO : COPY 
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| 010036 
| 010040 010001 
010042 1 


010044 016161 000400" 000710" 
005200 


Routine Size: 58 words _ ; 
; Maximum stack depth per invocation: 


o@e OoOoVC°o 
—_ ta I 

vw 

moo 

288s 

—VWIOW 

Aren 

oom 

MIA WO 


4$: 


5$: 
6$: 
7$: 
8$: 


7 words 
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5$ 
a 
en a ee 
RO,R2 
4$ 
8$ 
(SP) 
(S$?) ,R5 
$ 
(SP) + 
PC 


TOPS=20 Bliss-i6 V 
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; COPY,* 


; COPY 
£ (OPT,* 


; PUR.I OC 
; PUR.LOC,* 


mM 
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93 
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3308 
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rout ine ROW_PURGE (ROW_SEL, QUANTITY, LST_REM_ENTRY) : novalue = 
egin 


+ 


_ 
i FUNCTIONAL DESCRIPTION: ROW PURGE 


! 

i THIS ROUTINE IS EXACTLY THE SAME AS COLUMN 
PURGE EXCEPT THAT THE COPIED REMAINDER 
TABEL IS SEARCH AND PURGED OF ROW NUMBERS. 


Oa tata gtr ONE 'PURGE THE ROW IF COPIED TABLE ENTRIES > 1 
begin 
ipl aa from 0 to .LST_REM_ENTRY = 1 do !PURGE THE COPIED REM TABLE 
if .COPIED_REM_TBL [.PUR_LOC, ROW] eql .ROW_SEL 'TS THIS THE ROW TO BE PURGED 
ra ati 
if (.,PUR_LOC + .QUANTITY) neq .LST_REM_ENTRY 'TS THIS THE LAST TABLE ENTRY 
agin 


incr PURGE from .PUR_LOC to (.LST_REM_ENTRY - 1) = .QUANTITY do 
COPIED_REM_TBL [7PURGE, RO_CLJ = .COPIED_REM_TBL [.PURGE + 


incr COPY from 0 to .LST_REM_ENTRY - .QUANTITY do  !COPY COPIED TC REM 
REM_TBL C.COPY, RO_CC] =~.COPIED_REM_TBL [.COPY, RO_CLJ; 


end; 
eases ‘EXIT LOOP WHEN PURGE IS COMPLETED 
end; 
end; 
end; 
end; 
.SBTTL ROW.PURGE ROUTINE DECLARATIONS 
000000G ROW. PURGE : 
JSR R1,$SAVE5S F 
TST -(SP) 
000020 MOV 20(S5P),R5 : LST.REM.ENTRY,* 
000001 a4 R5,41 
L 


8s. 
CLR (SP) ; PUR.LOC 


.QUANTITY, RO_CLIJ; 
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3321 
3332 


3336 


Sa 7 
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010116 54 
| 010120 011601 1$ 
010122 
010124 


005004 
010126 156104 000711" 
Bo 8s 020466 000024 


010140 Me ks 000022 


010166 010400 2$: 


006301 
010200 016160 000710° 000710" 


010206 005204 3$: 


000406 
010224 010001 4$: 


006301 
010230 016161 000710* 000400" 
005200 


010240 020002 5$: 


0004 
010246 005216 6$: 
010250 021605 7$: 


010254 005726 8$: 
000207 


; Routine Size: 58 words 


: Maximum stack depth per invocation: 7 words 
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7$ 

(SP) ,R1 ; PUR.LOC,* 
R1 

RG 

COPIED.REM.TBL4+1(R1),R4 

1 "aie ; *,ROW.SEL 
22(SP) ,R3 : QUANTITY,* 
R3,RO 

(S$?) ,RO ; PUR.LOC,* 
8$ 

R5,R2 3 

R3,R2 

(SP) ,R4 ; PUR.LOC,PURGE 
RG: ; PURGE 

3$ 

R4,RO ; PURGE,* 
RO 

R3,R1 

R4 RI ; PURGE,* 

R 

COPIED.REM.TBL(R1),COPIED.REM.TBL(RO) ; 

R4 ; PURGE 
R4,R2 3 PURGE,* 
2$ 

R5,R2 : 

R3,R2 

RO ; COPY 

5$ 

~ ian ; COPY,* 
COPIED.REM.TAL(R1), REM. TBL(R1) 

RO ; COPY 
RO,R2 : COPY,* 

4$ 

8$ : 

(SP) 3; PUR.LOC 

| he ; PUR.LOC,* 
(SP) + : 

PC 
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3339 


3345 


3347 


3348 ° 


3347 


3350 


3351 


3350 


3355 
3336 


3321 
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SS ie (LST_REM_ENTRY) : novalue = 
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coco 
ad a 


egin 


FUNCTIONAL DESCRIPTION: COLUMN SORT 


BEFORE THE REMAINDER TABLE IS_INTERIGATED FOR COLUMNS 
THE COLUMN SIDE OF THE TABLE MUST BE SORTED. 


5 | 
| | 
' THIS ROUTINE WILL SORT THE COLUMN SIDE OF THE 
' REMAINDER TABLE AND THE ROW PAIR GETS MOVED 
AROUND WITH THE COLUMN PAIR. 
' FORMAL PARAMETERS 
LST >REM_ ENTRY 
a “POINTS TO THE LAST REMAINDER TABLE ENTRY 
Local 
TEMP; ' TEMPORARY STORAGE FOR BUBBLED ENTRY 
be -LST_REM_ENTRY gtr ONE 'SORT THE TABLE IF ENTRIES ARE > 1 
tnen 
begin 
incr PASS from 1 to .LST_REM_ENTRY = 1 do 'RUBBLE SORT TABLE UNTIL IN ASENDING ORDER 
incr index from 0 to ((.LST_REM_ENTRY - 2) - (.PASS = 1)) do 'BUBBLE UP THE BIGGEST NUMBER 
oy -REM_TBL C.index, COLJ gtr .REM_TBL {.index + 1, COLJ 'TS THE NEXT ENTRY > THIS ONE 
then 
begin 
T = .REM_TBL C. index, RO_CLI; 'COPY THE BIGGER ENTRY 
REM_TBL C. index, RO_CLJ = .REM_ TBL C.index + 1, RO_CLJ: 'PUT THE SMALLER ENTRY HERE 
we es Ci index’ + 17 RO_CL] = <TEMP; ‘PUT TRE BIGGER ENTRY IN NEXT ENTRY 
end; 
end; 
end; 
.SBTTL COL.SORT ROUTINE DECLARATIONS 
0000006 COL.SORT: 
JSR R1,$SAVE5 : 3363 
TST -(SP) 
000020 MOV 20(SP) ,-(SP) ; LST.REM.ENTRY,* 3384 
000001 CMP (SP) #1 : i 
BLE 6$ 
MOV (SP) ,RO z 3390 
000002 SUB #2,R0 
CLR R3 ; PASS 3389 





006305 
010332 012702 000400" 


006305 
C10344 062705 000402" 
010354 011266 000002 
010360 
010362 016615 000002 


; Routine Size: 43 words | 
>; Maximum stack depth per invocation: 


BSKELS 
REV A PATCH 00 ROUTINE DECLARATIONS 


2s: 


3$: 
6$: 
5$: 


6$: 


8 words 


N 10 


21-Apr-1981 08:40:22 
21-Apr-1981 08:19:06 
5$ 
RO,R5 
R3,R5 
R5,R1 
R1 
R4 
4$ 
a6 RS 
#RoM. TBL,R2 
R5,R2 
R4,R5 
RS 
#REM. TBL+2,R5 
(R2),(R5) 
3$ 
(R2),2¢SP) 
(R5),(R2) 
2(SP),(R5) 
R4 
R4,R1 
2$ 


R3 
R3, (SP) 
1 


(SP)4+,(SP)¢ 
PC 
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; PASS,* 


; INDEX 
3; INDEX,* 


: INDEX,* 


: *, TEMP 


TEMP,* 
: INDEX 
3; INDEX,* 


: PASS 
; PASS,* 
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routine ROW_SORT (LST_REM_ENTRY) : novalue = 
begin 
‘oe 
: FUNCTIONAL DESCRIPTION: ROW SORT 
THIS ROUTINE SERVES THE SAME PURPOSE AS 
' COLUMN SORT EXCEPT THE COPIED REM TABLE 
; ROWS ARE SORTED. 
Local 
MP; 'TEMPORY STORAGE FOR BUBBLED ENTRY 
if -LST_REM_ENTRY gtr ONF 'SORT THE TABLE IF ENTRIES > 1 
then 
begin 
incr PASS from 1 to .LST_REM_ENTRY = 1 do 'BUBBLE SORT TABLE UNTIL IN ASEENDING ORDER 
incr index from 0 to ((.LST_REM_ENTRY = 2) = (.PASS = 1)) do ‘BUBBLE UP THE BIGGEST NUMBER 
if .COPIED_REM_TBL C.index, ROW] gtr .COPIED_REM_TBL C.index + 1, ROW] 
then 
pear 
TE .COPIED_REM_TBL C.index, RO_CLJ; 'COPY THE BIGGER oY: 
COPIED_ REM_ TALC. index, RO_CLJ = .COPIED REM_TBL C.index + 1, RO CLI; 
CORIED. REM_TBL C.index + 1, RO_CLJ = TEMP. TPUT THE BIGGER EntyR: in NEXT ENTRY 
end; 
end; 
end; 
.SBTTL ROW.SORT ROUTINE DECLARATIONS 
0000006 ROW. SORT: 
JSR R1,$SAVE5 3 3403 
TST -(SP) 
600020 MOV 20(SP) ,-(SP) : LST.REM.ENTRY,* 3417 
000001 CMP (SP) ,#1 
BLE 6$ 
MOV (SP) ,RO : 3423 
000002 ; SUB #2,R0 
CLR R3 : PASS 3421 
BR 5$ 
1$: MOV RO,R5 3 3423 
SUB R3,R5 : PASS,* 
MOV R5,R1 
INC R1 
CLR R4 > INDEX 


- —— oli mecngitenetines ; 
: C 11 
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010454 010405 2s: MOV —s R&R ; INDEX,* : 3425 
010456 006305 ASL RR 

010460 012702 000710" MOV - #COPIED.REM. TBL .R2 

010464 060502 ADD —-R5.Re 

010466 910405 Mov —- R&S ; INDEX,* 

010470 006305 ASL R5 

010472 062705 000712" ADD -#COPIED REM. TBL+2,R5 

010476 126265 000001 000001 CMPB «1 (R2), 

010504 101405 BLOS 6-38 

010506 011266 000002 MOV (R2) ,2(SP) ; +, TEMP 3428 
010512 011512 MoV (R5), (R2) : 3429 
010514 016615 000002 Mov —«- 2(SP5,, (RS)  S TEMP, * 3430 
010520 005204 3$: INC RG > INDEX 3423 
010522 020401 4$: CMP RG, RI : INDEX,* 

010524 003753 BLE 2$ 

010526 005203 5$: INC —R3 ; PASS 3421 
010530 020316 (MP «R33, (SP) : PASS,* , 

010532 002742 BLT 1$ 

010534 022626 6$: CMP (SP) +, (SP)+ : 3403 
010536 000207 RTS —- PC 


; Routine Size: 45 words | : 
: Maximum stack depth per invocation: 8 words 


BSKEL4 


010540 
010544 


010576 
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routine S_BLAST_TBL (BNK_NUM) = 


0000006 S.BLAST. TBE: 


begin 


FUNCT ICNAL DESCRIPTION: SEARCH THE BLAST TABLE 


TO DETERMINE IF A BANK HAS ANY ADDITIONAL 
FAILING ROW OR COLUMNS THE BLAST TABLE IS 
SEARCHED FOR ANY BITS SET. 


ul BITS ARE SET THEN THIS BANK MUST BE 
PM'ED. IF NO BITS ARE SET THEN THIS BANK 
CAN BE SKIPPED AND NOT PM'ED 
THIS ROUTINE SEARCHES THE BLAST TABLE AT 
THE SELECTED BANK AND SEES IF ANY BITS ARE 
ARE SET INDICATING NEW ERRORS FOR THIS BANK. 
A TRUE INDICATO8 IS RETURNED IF NEW ERRORS 
EXIST AND A FALSE INDICATOR IS RETURNED IF 
NO NEW ERRORS ARE FOUND. 
FORMAL PARAMETERS: 
BNK __NUM 


“POINTS TO THE BANK TO BE SEARCHED 
incr, SEARO from 0 to .MAX_CHIP_COL*2 - 1 do 'LOOK AT ALL ROWS AND COLS FOR THIS BANK 
egin 
if .BLAST_TBL C.BNK_NUM, .SEARCH, FULL_WRD] neq ZERO then return TRUE; !RETURN TRU IF ANY BITS SET 
end; 
return FALSE; 'RETURN FALSE IF NO BITS ARE SET 
enc; 
_SBITL §.BLAST.TBL ROUTINE DECLARATIONS 
R1,$SAVE3 : 


036774° MOV MAX. .CHIP.COL,R3 : 
000012 MOV alana > BNK.NUM,* 


CLR R1 ; SEARCH 
3$ 


ADD R1,R2 * SEARCH, * 


R2 
026770° TST BLAST. TBL (R2) 


we 
“3 


Page 
SEQ 01 


3436 
3462 


3465 


3462 
3465 


eee ss =.=.=—0—0—0———.9.:: ss 
SS 
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: Routine Size: 


ROUTINE DECLARATIONS 


000001 


26 words 


: Maximum stack depth per invocation: 4 words 
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coco 
pean aes 
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3; SEARCH 
; SEARCH,* 


(36) 


Pa 101 
SEO 01 34 
3462 


3437 
3436 
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ROUTINE DECLARATIONS 
routine S_COLUMNS (MOST_OFTEN, SUM_MOST, LST_REMLENTRY) = 


begin 


FORMAL PARAMETERS: 
MOST 
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FUNCTIONAL DESCRIPTION: SEARCH THE COLUMN TABLE 


THE REMAINDER TABLE IS SEARCHED FOR THE 

BEST POSSIBLE CHOICE FOR BLASTING ie. 

WHETHER TO SELECT ROWS OR COLUMNS FO 

BLASTING. THIS IS DONE BY FIRST FINDING WHE THER 
ROW NUMBERS OR COLUMN NUMBERS APPEAR MOST 

OFTEN IN THE REMAINDER TABLE. THEN IN THIS 
GREATER COUNT WHICH MEMBER APPEARS MOST OFTEN. 


THIS ROUTINE SEARCHES THE REMAINDER TABLE FOR 
THE NUMBER OF DIFFERENT NUMBER OF FAILING 
COLUMNS FOUND AND WHICH FAILING COLUMN NUMBER 
HAS THE GREATEST NUMBER OF OCCURANCES. 


_OF TEN: 


PASSED 6&r REFERENCE AND STORES THE MOST 
OF TEN FOUND COLUMN. 


SUM_OF TEN 
PASSED BY REFERENCE AND STORES THE SUM 
OF ay, MOST OFTEN FOUND COLUMN. 
LST_REM_ENTRY 
POINTS TO THE LAST REMAINDER ENTRY 
local 
CUR_SUM, 'STORES CURRENT SUM OF MOST OFTEN FOUND COLUMN 
PRE_SUM, 'STORES PREVIOUS SUM OF MOST OFTEN FOUND COLUMN 
CUR_MOST, 'STORES CURRENT MOST OFTEN FOUND COLUMN 
PRE _MOST, ‘STORES PREVIOUS MOST OFTEN FOUND COLUMN 
DIF; 'STORES HOW MANY DIFFERENT COLUMNS WERE FOUND 
CUR_SUM = 1; ‘CURRENT SUM STARTS AT ONE 
PRE_S = 1 ‘PREVIOUS SUM STARTS AT © 


“SUM = 1; 
PRE-MOST = .REM_TBL CZERO, COLJ; 


if .LST_REM_ENTRY gtr ONE 


then 


begin 
COL_SORT (.LST_REM_ENTRY); 


NE 
'PREVIOUS MOST OFTEN STARTS AT FIRST COLUMN IN TABLE 
'DIFFERENT COLUMN COUNT STARTS AT ONE 


'FIRST TABLE ENTRY IS MOST OFTEM IF TABLE ENTRY < 1 


‘SORT THE COLUMN SIDE OF REMAINDER TABLE 


incr index from 0 to .LST_LREM_ENTRY = 2 do ‘FIND THE SUM, MOST OFTEN AND DIFFERENT 


begin 


if .REM_TBL [. index, 


then : 
begin 


COL] eql .REM_TBL [.index + 1, COL] TS THIS THE SAME AS THE NEXT 


ge 102 
sea 95.135 
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010446 


ROUTINE DECLARATIONS 


CUR_MOST = .REM_TBL [. index, COL? 


CUR_SUM = ~CUR_SUM + i; 
end 
“se 
begin 
DIF = .DIF + 1; 
if .CUR_SUM gtr .PRE_SUM 
then 
begin 
PRE_SUM = .CUR_SUM; 
PRE_MOST = .CUR_MOST; 
end; 
CUR_SUM = 1; 
end; 
end; 


end; 


| THIS TEST TO SEE IF THE LAST SET OF 
' UNIQUE COLUMN NUMBERS IN THE TABLE IS > THE PREVIOUS SUM 


if .CUR_SUM gtr .PRE_SUM 


tnen 
begin 
PRE_SUM = .CUR 
PRE_MOST = .CUR 
end; 


SUM; 
_MOST; 


-MOST_OFTEN = .PRE_MOST; 


.SUM_MOST = .PRE_ SUM; 


return DIF; 
end; 


0000006 


000001 


000400" 
000001 000002 
000024 
000001 


TTL 
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MOST OFTEN IS _THIS ENTRY 
| INCREMENT THE SUM OF THE MOST 


! INCREMENT THE DIFFERENT COLUMN COUNT 


!1S THE CURRENT SUM > PREVIOUS SUM 


'SAVE THE SUM OF THE CURRENT MOST OFTEN 
!SAVE THE CURRENT MOST OFTEN 


!'START CURRENT SUM BACK TO ONE 


']S THE CURRENT SUM > THE PREVIOUS SUM 


'SAVE THE SUM OF THE CURRENT MOST OFTEN 
'SAVE THE CURRENT MOST OF TEN 


'RETURN THE MOST OFTEN FOUND COLUMN 
'RETURN THE SUM OF THE MOST OFTEN COLUMN 
'RETURN THE DIFFERENT NUMBER OF COLUMNS FOUND 


S.COLUMNS ROUTINE DECLARATIONS 


R1,$SAVE5 3 
-(SP) ,-(SP) 
#1,R1 3; *,CUR.SUM 
RI oR5 3; *,PRE.SUM 

(§P) ; PRE .MOST 
REM, TBL, (SP) ; *,PRE.MOST 
#1,2(SP j 3; *,DIF 

: LST.REM.ENTRY,* 


R4,4 
6$ 
R4,-(SP) 


24(SP), RS 


Page 103 
SEQ 0136 


BSKELS 
REV A PATCH 00 


010670 004767 
162704 


= 
& 
~N 
a 


; Routine Size: 
> Maximum stack 
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177364 
000002 


000400" 000402" 
000400" 000006 
000007 


000004 


000006 000002 
000001 


65 words 


depth per invocation: 


2$: 


7$: 


10 words 


H 11 
21-Apr-198 
21-Apr-198 


PC,COL.SORT 
#2,R4 
Re 

5$ 

R2,R3 

R3 

R2,RO 


RO 

 debpecanpe chaste th sei 
REM. TBL(R3) ,6 (SP) 

7(SP) 


R 
4$ 
4 (SP) 
R1,R5 
3$ 


R1,R5 
6(SP) ,2¢(SP) 
#1,R1 


R2,R4 
: 


oR 
4(SP) , (SP) 
(SP) +,@26(SP) 
R5,@24 (SP) 
(SP)+,RO 
(SP) + 
PC 


—_— 
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+ INDEX 


INDEX ,* 
INDEX,* 


; *,CUR.MOST 
; CUR.MOST 


CUR. SUM 


DIF 
CUR. SUM,PRE . SUM 


CUR. SUM,PRE . SUM 
CUR.MOST ,PRE .MOST 
*,CUR.SUM 

INDEX 

INDEX,* 


CUR. SUM,PRE . SUM 


CUR. SUM,PRE . SUM 
CUR.MOST ,PRE .MOST 
PRE .MOST ,MOST .OF TEN 
Be Saba aceon 


a 104 
070137 


3517 


3520 


sooo es — 
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3560 routine S_ROWS (MOST_OFTEN, SUM_MOST, LST_REM_ENTRY) = 
3561 begin 


3563 i+ 
! FUNCTIONAL DESCRIPTION: SEARCH ROWS 


3566 THIS ROUTINE HAS THE SAME FUNCTIONALITY 
AS SEARCH COLUMNS EXCEPT THAT THE COPIED 
REMAINDER TABLE IS SEARCHED FOR ROW NUMBERS. 


3572 CUR_SUM, 'STORES CURRENT SUM OF MOST OFTEN FOUND ROW 
3573 PRE_SUM, ‘STORES PREVIOUS SUM OF MOST OFTEN FOUND ROW 
3574 CUR_MOST, 'STORES CURRENT MOST OFTEN ROW FOUND 
3575 PRE _MOST, 'STORES PREVIOUS MOST OFTEN ROW FOUND 


1; 'CURRENT SUM STARTS AT ONE 

_SUM = 1; 'PREVIOUS SUM STARTS AT ONE 

3580 PRE_MOST = .COPIED_REM_TBL CZERO, ROWJ; ‘PREVIOUS MOST OFTEN STARTS AT FIRST TABLE ENRRY 
3581 DIF = 1; 'DIFFERENT ROW COUNT STARTS AT ONF 


: 3585 if .LST_LREM_ENTRY gtr ONE 'FIRST TABLE ENTRY IS MOST OFTEN IF TABLE ENTRY < 1 


eee ee ee ee ee ee oe ee ee | 
Ww Ww 
Ww w 4 
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Oo —_ 
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P°) ° 
mm a 
a 
—_ 
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3584 _ ; 
egin 
3586 ROW_SORT (.LST_REM_ENTRY) ; 'SORT THE ROW SIDE OF COPIED REM TABLE 


3588 incr index from 0 to .LST_REM_ENTRY = 2 do 'FIND THE SUM, MOST OFTEN AND DIFFERENT 
3589 begin 


3591 if .COPIED_REM_TBL [.index, ROW] eql .COPIED_REM_TBL C.index + 1, ROW] 


ee ee ey 
WG 
Ww 
co 
N 


in . 
3594 CUR_MOST = .COPIED_REM_TBL C.index, ROW); ‘MOST OFTEN IS THIS ENTRY 
.CUR_SUM + 1; ‘INCREMENT THE SUM OF MOST 


en ee ee | 

! Ww 
wn 
oO 
Ww 
Co 
ti ] 
= 


egin 
= .DIf «+ 13 ' INCREMENT THE DIFFERENT ROW COUNT 


3601 if .CUR_SUM gtr .PRE_SUM 'TS THE CURRENT SUM > PREVIOUS SUM 
3602 then 


begin 
3604 PRE_ SUM = .CUR_SUM; 'SAVE THE SUM OF THE CURRENT MOST OFTEN 
sone tn ent = . CUR_MOST; 'SAVE THE CURRENT MOST OFTEN ROW 

end: 


3608 CUR_SUM = 1; 'START CURRENT SUM BACK TO ONE 
3609 end; 


3611 end; 
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end; 
' THIS TEST TO SEE IF THE LAST SET OF 
UNIQUE ROW NUMBERS IN TABLE IS > THE PREVIOUS 
if .CUR_SUM gtr .PRE_SUM 
then 
ot ye 
PRE_SUM = .CUR_SUM; 
PRE_MOST = .CUR_MOST; 
end; 
-MOST_OFTEN = .PRE_MOST; 
. SUM_MOST = .PRE_SUM; 
return .DIF; 
end; 
.SBTTL S.ROWS ROUTINE DECLARATIONS 
000000G S.ROWS: JSR R1,$SAVE5 
CMP -(SP) ,-(SP) 
0C0001 MOV #1,R1 
MOV R1,R5 
CLR -(SP) 
000711° MOVB COPIED.REM. TBL+1, (SP) 
000001 000002 MOV #1,2(SP) 
000024 MOV 24(SP) ,R4 
000001 CMP R4,41 
BLE $ 
MOV R4,-(SP) 
177310 JSR PC,ROW. SORT 
000002 S #2,R4 
CLR R2 
BR 5$ 
1$: MOV R2,R3 
ASL R3 
MOV R2,RO 
ASL RO 
000711° 000713' oe en oe 
000711" 000006 MOVB COPIED.REM. TBL+1(R3) ,6(SP) 
000007 CLRB 7(SP) 
INC R1 
BR 4$ 
000004 2$: INC 4 (SP) 
CMP R1,R5 
BLE 3$ 
MOV R1,R5 
000006 000002 MOV 6(SP) ,2(SP) 
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'TS THE CURRENT SUM > PREVIOUS SUM 


'SAVE THE SUM OF THE CURRENT MOST OFTEN 
'SAVE THE CURRENT MOST OFTEN ROW 


‘RETURN THE MOST OFTEN FOUND ROW 
'RETURN THE SUM OF THE MOST OFTEN FOUND ROW 
'RETURN THE NUMBER OF DIFFERENT FOUND ROWS 


: &, F 
; LST.REM.ENTRY,* 


3 INDEX 

3 INDEX,* 

; INDEX,* 
TBL+3(RO) ; 


+ CUR.SUM 
: DIF 
: CUR.SUM,PRE.SUM 


; CUR.SUM,PRE.SUM 
; CUR.MOST PRE .MOST 
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; Routine Size: ; ¢ 
: Maximum stack depth per invocation: 10 words 
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000001 3$: MOV #1,R1 
4$: INC R2 
5$: CMP R2,R4 
BLE 1$ 
TST (SP) + 
6$: CMP R1,R5 
BLE 7$ 
MOV R1,R5 
000004 MOV 4(SP), (SP) 
000026 7$: MOV (S?)+,a@26(SP) 
000024 MOV R5,a24(SP) 
MOV (SP)+,RO 
if hi (SP) + 
RTS PC 
65 words ? 
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*,CUR.SUM 
INDEX 
INDEX,* 


CUR. SUM,PRE .SUM 


CUR. SUM,PRE . SUM 
CUR.MOST,PRE .MOST 


; PRE.MOST,MOST.OF TEN 
; PRE.SUM,SUM.MOST 


DIF,* 
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; 3631 routine S_REM_TBL (BAD_CHIP, ALL_BAD) = 
H 3632 begin 
; 3633 
; 3634 !++ 
5 tH FUNCTIONAL DESCRIPTION: SEARCH THE REMAINDER TABLE 
: 3637 =! THE REMAINDER TABLE IS LOADED WITH ALL_THE 
; 3638 =! REMAINING SINGLE CELL FAILURES SCATTERED 
: s75 THROUGH OUT THE CHIP. 
; 3641 ! THESE SCATTERED REMAINING ROW COLUMN PAIRS 
; 3642 =! ARE THEN TRANSFERED INTO THE REMAINDER TABLE 
a 36435! WERE THEY ARE INTERIGATED FOR THE BEST POSSIBLE 
; srs ; BLASTING SELECTION. 
; 3646! THIS ROUTINE SEARCHES THE REMAINDER TABLE OF 
; 3647 ! THE REMAINING ROW COLUMN PAIRS AND DETERMINES 
; ser: THE BEST POSSIBLE CHOICE FOR BLASTING. 
: 3650 ! FORMAL PARAMETERS: 
; 3651! BAD_CHIP: 
; 3652 =! POINTS THE THE FAILING CHIP PRESENTLY 
; 3o25 BEING PM'ED. 
: 3654 ! ALL_BAD: 
; 2633 2 COUNTS HOW MANY ALL BAD ROW AND COLUMNS 
; 3656 =! HAVE BEEN FOUND THUS FAR. IF THIS COUNT 
; 3657 ! EXCEEDS A COUNT OF 10 FOR ANY ONE CHIP 
: 3658 =! THEN THAT CHIP IS CALLED A ALL BAD AND 
; 3659 =! A CONDITION A MESSAGE IS PRINTED. IF 
; 3660 ! TWO ALL BAD CHIPS ARE DISCOVERED IN THE 
; 3661 ! THE SAME BANK THEN A CONDITION B MESSAGE 
: 3662 ! IS PRINTED AND FURTHER TESTING OF THIS 
; 3663 ! ARRAY IS ABORTED. 
; 3665 
; 3666 Local 
; 3667 LST_REM_ENTRY, 'POINTS TO LAS ENTRY INTO REMAINDER TABLE 
; 3668 DIF_COLS, 'DIFFERENT NO. OF COLS IN REMAINDER TABLE 
; 3669 DIF_ROWS, 'DIFFERNET NO. OF ROWS IN REMAINDER TABLE 
; 3670 ROW_MOST_OF TEN, 'MOST OFTEN FOUND ROW IN REMAINDER TABLE 
; 3671 COL_MOST_OF TEN, 'MOST OFTEN FOUND COLUMN IN REMAINDER TABLE 
; 3672 ROW_SUM, 'SUM OF THE MOST OFTEN FOUND ROW IN REMAINDER TABLE 
; 44 COL_ SUM; 'SUM OF THE MOST OFTEN FOUND COLUMN IN REMAINDER TABLE 
; 3675 1_REM_TBL (); 'INIT THE REMAINDER AND COPIED REM TABLES 
; 3676 LST_REM_ENTRY = ZERO; 'LSAT REM ENTRY STARTS AT ZERO 
; 3677 LSTTREMENTRY = X_TO_REM_TBL (.LST_REM_ENTRY); 
; 78 'XFER COLUMN COUNT BABLE TO REMAINDER AND COPIED TABLES 
a9] waite -LST_REM_ENTRY gtr ZERO do 'SEARCH THE REMAINDER AND COPIED TABLE UNTIL EMPTY 
; egin 
: 3682 ALL_BAD = .ALL_BAD + 1; ' INCREMENT THE ALL BAD ROW / COLUMN COUNT 
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7 -ALL_BAD gtr 9 'I1S THE ALL BAD COUNT > 9 
then 
; return .ALL_BAD 'EXIT AND RETURN THE COUNT OF ALL BAD ROW/COL 
e.se 
pore 
DIF_COLS = S_COLUMNS (COL_MOST_ OF TEN, COL_SUM, .LST_REM_ENTRY); 
FIND THE COLUMNS DIFFERENT, MOST LF TEN AND SUM 
DIF_ROWS = S_ROWS (ROW_MOST_OFTEN, ROW SUM, .LST_REM_ENTRY); 
‘FIND THE ROWS DIFFERENT. MOST FOTEN AND SUM 
it .DIF_ROWS leq .DIF_COLS 'ARE DIFFERENT ROWS < DIFFERENT COLUMNS 
then 
oD _BLST_TBL C.ALL_BAD, R_C] = SET_FLG; ! INDICATE THIS IS A BAD ROW 
TMP_BLST_TBL [.ALL—BAD, R-C_NO] = TROW_MOST_OF TEN; 'LOAD THE FAILING ROW NO. 
TMP_BLST_TBL C.ALL_BAD, NIB_NO) = “BAD — “CHIP74; !LOAD THE FAILING NIBBLE POSITION 
ROW_PURGE (.ROW_MOST_OFTEN, .ROW_ SUM, [LST _REM_ ENTRY); 'PURGE THIS ROW FROM TABLE 
LST ~REM_ ENTRY =~.LSTREM_ ENTRY =~ .ROW_ SUM: (REALIGN THE POINTER 
en 
else 
ye _BLST_TBL C.ALL_BAD, R_CJ = CLR_FLG; INDICATE THIS Is A BAD COLUM 
TMP_BLST_TBL LC ALL~BAD. R-C_NOJ = <CO “MOST 0 LOAD THE FAILING COLUMN NO 
TMP"BLST-TBL C.ALL-BAD, NIB_NO] = .BAD_CKIP74; "i OAD re FAILING NIBBLE- POSITION 
COL-PURGE (.COL_MOST_OFTEN, .COL_SUM, CST_REM_ENTRY); — ‘PURGE COLUMN FORM TALBE 
LST MEA ENTRY = .LST_REM_ ENTRY - ~COL_ SUM; ‘REALIGN POINTER 
en 
end; 
end; 
return -ALL_BAD; 'RETURN THE NUMBER OF ALL BAD ROWS/COLUMNS FOUND 
enc; 
.SBTTL S.REM.TBL ROUTINE DECLARATIONS 
0000006 S.REM.TBL: 
JSR R1,$SAVE5 Z 3631 
000012 SUB #12.S 
173230 JSR PC,1.REM.TBL 3 3675 
CLR (SP) > LST.REM.ENTRY 367 
CLR -(SP) : 367 
175644 JSR PC,X.TO.REM. TBL 
000002 MOV RO,2(SP) : *, LST.REM.ENTRY 
1$: ROY g(5P) oe : LST.REM.ENTRY,* 3680 
L 
000032 INC 32(SP) ; ALL.BAD 3682 
000032 MOV 32(SP) ,R3 ; ALL.BAD,* 3684 
000011 CMP R3,411 
BLE 2$ 


——— CE ——————  —  — —_--- OOo rr Orr rr ee 


ey 


@w 
a 
ea 


~~ oy 
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ROUTINE DECLARATIONS 


000014 
000014 


177270 
000014 
000014 


177446 
000046 


000004 
000000G 
026744° 


100000 
000022 


170017 
007760 


177760 
000017 


000022 
000022 


176402 
000026 


100000 
000026 


170017 
007760 


177760 
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(SP) + 
R3,R0 

$ 


6 
#14,-(SP) 


RO,R 
46(SP) , (SP) 
#4 ,-(SP) 

PC .BLEDIV 
R3 


#TMP.BLST.TBL,R3 
R1,R4 


o 


#100000, (R3) 
22(SP),R5 
R5 

R5 

R5 


R5 
#170017,R5 
#7760, (R3) 


RO, (R3) 
22(SP),-(SP) 
22(SP) ,-(SP) 
R2,-(SP) 

PC ,ROW. PURGE 
co's?) enters 


#100000, (R3) 
26(SP),R5 


R5 
#170017,R5 
#7760, (R3) 
RS, (R$) 
#177760,R0 
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COL .MOST.OF TEN,* 


; COL.SUM,* 


; *,DIF.COLS 
; ROW.MOST.OF TEN,* 
; ROW.SUM,* 


; *,DIF.ROWS 
; BAD.CHIP,* 
; DIF .ROWS,DIF.COLS 


: ROW.MOST.OF TEN,* ‘ 


; ROW.MOST.OFTEN,* 
; ROW.SUM,* 


ROW. SUM, LST.REM. ENTRY 


COL .MOST.OF TEN, * 


a 110 
070143 


3686 


3689 


3691 


3699 


3697 
3694 


3697 
3698 


370? 
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/ 0115460 142713 000077 BICB #17, (R3) 

| 011544 150013 B1SB RO, (R3) I 

| 011546 016646 000026 MOV 26(SP),=(SP) 3; COL.MOST.O* TEN,* 3708 
011552 01 000026 MOV ; COL.SUM 


011564 004767 176120 JSR PC, COL .PURGE 
000032 000024 SUB 32(SP) ,24(SP) ; COL.SUM,LST.REM.ENTRY 3709 
011576 062706 000022 4$: ADD + eal ; 


0006 BR 
011604 005726 5$: TST (SP) + 
011606 016600 000030 MOV 30(SP),RO 
011612 062706 000012 6$: ADD #12,SP 
011616 000207 RTS PC 


3 Routine Size: 124 words. , 
: Maximum stack depth per invocation: 21 words 


oO 

> 
= 
S 
ins) 
NM 
ao 


016646 26(SP) ,=(SP) : COL.SUM,* 
011556 912746 000024 MOV #24,-(SP) 
011562 060616 ADD SP, (SP) 3; LST.REM.ENTRY,* 
; ALL.BAD,* 3632 
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$ 3718 routine S_COL_CNT_TBL (BAD_CHIP, ALL_BAD) = 

: 3719 begin 

375) 

4 $556 FUNCTIONAL DESCRIPTION: SEARCH THE COLUMN COUNT TABLE 

: 3704! THE COLUMN COUNT TASLE STORES A COUNT OF 

Py 3725 i oF ys gh! FAILING COLUMNS WHEN THE ERROR 

; 3758 ! MAP IS SEARCHED FOR BAD ROWS. 

3 3728 sO! THIS ROUTINE SEARCHES THE COLUMN COUNT 

; 3729! TABLE FOR COLUMN COUNTS FOR COLUMNS 

; 3730! COUNTS GREATER THAN 10. IF A COUNT OF 

$ 3731 ' GREATER THAN 10 IS FOUND THEN THIS IS 

3 3732 i CALLED A ALL BAD COLUMN AND THE TEMP 

3 3733! BLAST TABLE IS LOADED WITH THIS COLUMN 

3 3734 | NUMBER. THE COLUMN COUNT TABLE AT THIS 

; ey] ! ALL BAD COLUMN NUMBER IS CLEARED. 

; 3737 i FORMAL PARAMETERS: 

; 3738 SC! BAD_CHIP: 

; 3739 i cutee A FAILING CHIP WHICH IS PRESENTLY BEING 

3 3740 | PM'ED. 

: S74} ALL_BAD: 

; 3742 i KEEPS COUNT OF HOW MANY ALL BAD ROW AND OR COLUMNS 

3 3743! ARE FOUND FOR THIS CHIP. IF THIS COUNT COUNT 

$ tog: i 10 THEN THIS CHIP IS CALLED A ALL BAD 

3 3746 ‘ 

5 3747 i= 

2 3748 

; 3749 incr COL_NUM from 0 to -MAX_CHIP_COL - 1 do 'SEARCH THRU THE COLUMN TABLE 

Pee Br ae 

E 3752 if .COL_CNT_TBL C.COL_NUM] gtr 10 'IS THIS LOCATIONS COUNT > 10 

3 3753 then 

; 3754 begin 

r ted] ALL_BAD = .ALL_BAD + Fi ' INCREMENT THE ALL BAD ROW/COL COUNT 

3 3757 if .ALL_BAD gtr 9 'IS THE ALL BAD COUNT > 9 

. 3758 then 

: 3759 return .ALL_BAD 'EX]T AND RETURN ALL BAD COUNT 

5 3760 else 

3 3761 begin 

; 3762 TMP_BLST_TBL C.ALL_BAD, R_CJ =_CLR_FLG; : INDICATE THAT THIS IS A BAD COLUMN 
; 3763 TMP_BLST_TBL C.ALL “BAD, F 0] = [COL_NUM; LOAD THE BAD COLUMN NUMBER 
3 3764 TMP_BLST_TBL_[.ALL_BAD, NIB_NO] = -BAD_CHIP/4; i LOAD THE FAILING NIBBLE POSITION 
f 3765 COL-CNT_TBL C.COL_NUM] = ZEROES; ‘CLEAR THE TABLE OF THIS BAD COLUMN 
2 3766 end; 

5 3767 

: 3768 end; 


011770 000207 


; Routine Size: 


011620 004167 
011624 005002 
011626 0004535 
011630 126227 
011636 101446 
011640 005266 
: Maximum stack 


ROUTINE DECLARATIONS 


end; 
return .ALL_BAD; 
end; 
000000G §.COL.CNT.TBL: 
JSR 
CLR 
BR 
000000" 000012 1$: CMPB 
BLOS 
000010 INC 
000010 MOV 
000011 CMP 
BLE 
MOV 
RTS 
2$: ASL 
026744' ADD 
100000 BIC 
MOV 
ASL 
ASL 
ASL 
ASL 
170017 BIC 
007760 BIC 
BIS 
000012 MOV 
000004 MOV 
000000G JSR 
177760 BIC 
000017 BICB 
BISB 
000000" CLRB 
CMP 
3$: INC 
036774' 4$: CMP 
BLT 
000010 MOV 
RTS 
53 words 


depth per invocation: 5 words 


.SBTTL $.COL.CNT.TBL ROUTINE DECLARATIONS 


D1 


2 
21-Apr-1981 08:4 
21-Apr-1981 08:1 


'EXIT AND RETURN THE NUMBER OF ALL BAD ROWS/COLS 


R1,$SAVE2 
R2 


4$ 
COL.CNT.TBL(R2) ,A12 
3$ 


10(SP) 
10(SP),R1 
R1,411 


23° 
R1,RO 
PC 


R1 

ATMP. “ee a R1 
#100000, ¢ 

R2,R0 

RO 

RO 

RO 


RO 
#170017,RO 
#7760, (R1) 
RO, (R1) 
12(SP) ,-(SP) 
#4,-(SP) 
PC-BL$DIV 
#177760,RO 
#17, (R1) 
RO, (R1) 
COL. CNT. TBL(R2) 
(SP) +, (SP) + 


R2 
R2,MAX.CHIP.COL 
10(SP) ,RO 

PC 
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; COL.NUM 


* (COL .NUM) , * 


ALL .BAD 
ALL .BAD,* 


COL .NUM, * 


BAD.CHIP,* 


; *(COL.NUM) 


COL .NUM 
COL .NUM,* 


ALL .BAD,* 


ge 113 


sea 95146 


3718 
3749 


3752 


3755 
3757 


3759 
3762 


3763 


3764 
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: 3774 routine S_ERROR_MAP (BAD_CHIP) = 
; 3775 begin 
; 3776 
; ds 
$05 FUNCTIONAL DESCRIPTION : SEARCH THE ERROR MAP 
; 3780 THE ERROR MAP IS LOADED WITH ALL THE 
; 3781 FAILING ROW NUMBERS AT THIER FAILING 
as SECTOR NUMBERS. 


' 
' 

; 3784 THIS ROUTINE SEARCHES THE ERROR MAP FOR 
! 


3 ere? OCCURANCES OF BAD ROWS 

: 3787 WHEN A BAD ROW IS FOUND A BAD ROW COUNT 

: 3788 1S INCREMENTED AND A BAD COLUMN COUNT 

; 3789 AT THE ADJACENT FAILING COLUMN IS ALSO 

3 Ta INCREMENTED. 

: 3792 «|! IF THE ROW COUNT EXCEEDS 10 THEN THIS IS 

; 3793: CALLED A ALL BAD ROW AND THE ROW NUMBER IS 

; 3794 |! LOADED INTO THE TEMP BLAST TABLE. THE ADJACENT 

; a] FAILING COLUMN COUNTS IS DECREMENTED BY ONE 

: 3797! IF AFTER SEARCHING THE ERROR MAP THE BAD ROW 

; 3798! DOES NOT EXCEED 10 THEN THE PROGRAM GOES ON TO 

: 3799! THE NEXT ROW AND THE FAILING COLUMN COUNT ARE 

; 3800 ! LEFT ALONE. 

Hy 3801 ! 

; 3802 |! FORMAL PARAMETERS: 

B 3803 ! BAD_CHIP: 

3 3804 ! os TO A FAILING CHIP PRESENTLY. BEING 

; 3805! PM'ED. 

2 3806 !-- 

3 3807 

; 3808 Label 

; 3809 A; 'LEAVE LOOP LABEL 

§ 3810 

, 3811 local 

; 3812 WRD_INDEX, 'STORES THE ERROR MAP WORD WHERE THIS ROW RESIDES 
; 3813 BIT_INDEX, : STORES THE BIT IN THE ERROR MAP WORD WHERE THIS BIT RESIDES 
; 3814 ROW_CNT, ‘COUNT OF HOW MANY BAD ROW FOUND 

; 3815 PTR, iPOINTER INTO TO THE COLUMN POINTER TABLE 

; 3816 COL_ INDEX, iSTORES THE CALCULATED ADJACENT FAILING COLUMN NUMBER 
5 3817 QD_PAIR LOOP, iSELECTS HOW MANY QUADRANTS TO TEST 

; 3818 QD~NUM SEARCH, iSELECTS HOW MANY QUADRANTS TO TEST 

: 3819 QD-OF FSET, ‘OFF SET USE IN CALCULATING WHICH QUADRANT TO TEST 
; 3820 START_SEC, ‘STARTING SECTOR VARIABLE 

3 3821 END_SEC, 'ENDING SECTOR VARIABLE 

j a8 ALL_BAD; ‘STORES HOW MANY ALL BAD CHIPS ARE FOUND 

; 3824 ALL_BAD = -1; ‘START ALL BAD AT -1 THIS VALUE GETS RETURNED 

: 3825 1_COL_CNT_TBL ©); ‘INIT THE COLUMN COUNT TABLE 


= 


ee ee ee ee ee ee 


ee te Be we Fe Se Be Be Me 


BSKEL4 
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if .BNK_NUM_SEC eql 127 
then 


begin 
QD_PAIR_LOOP = 0; 
QD—NUM_ SEARCH = 0; 
en 

else 


be 
SO oPAIR LOOP = 1; 
QD_NUM_ SEARCH = 1; 
en 
io eeset = =2; 
incr QD_i.OOP from 0 to .QD_PAIR_LOOP do 
begin 
QD_OFFSET = .QD_OFFSET + 2; 


incr ROW_NUM from 0 to 127 do 
begin 


_INDEX = .ROW_NUM/16; 
; BITTINDEX = .ROWLNUM mod 16; 
begin 


incr QD_SEARCH from 0 + 
begin 
case .QD_SEARCH from 0 to 3 of 
set 


(0) : 
begin 
Ree yy ZERO; 
mae PTR Cs 
START-SEC = 0; 
END_SEC = 127; 
end; 


ae 
as 
START_SEC = 256; 


END_SEC = 383; 
end; 


[2]) % 
begin 
Ron ? = ZERO; 


.QD_OFFSET to 


F 12 
21-Apr-1981 08:40:22 
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'1S THIS A 16K CHIP 


‘16K CHIPS ONLY HAVE ONE QUADRANT TO TEST 


'64K CHIPS HAVE FOUR QUADRANTS TO TEST 


'START THE OFFSET OFF AT =2 
‘LOOP ON TWO QUADRANT PAIRS 

'UP THE OFFSET BY TWO 

'SEARCH ALL WORDS IN THIS SECTOR 


'CALCULATE WHICH WORD THIS ROW IS IN 
'CALCULATE WHICH BIT IN WORD THIS ROW IS IN 


.QD_NUM_SEARCH + .QD_OFFSET do 
'SEARTH BOTH QUADRANTS IN THIS PAIR 


!'WHICH QUADRANT ARE WE IN 


: 
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(41) 


‘WE ARE IN THE FIRST QUADRANT OR JUST A 16K PART 


'ROW STARTS AT 0 FOR THE FIRST QUAD SEARCH 
'THE POINTER STARTS AT = 

‘INIT THE COLUMN POINTER TABLE 

'QUAD 0 SECTORS START AT 0 

'QUAD 0 END SECTOR ENDS AT 127 


'WE ARE IN QUADRANT 1 
'QUAD 1 SECTORS START AT 256 
‘QUAD 7 SECTORS END AT 383 


'WE ARE IN QUADRANT 2 


‘START THE ROW COUNT AT ZERO 
'RESET THE POINTER 


Page 115 
SEQ 0148 
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3878 1_COL_PTR (); 
START_SEC = 128; 
END_SEC = 255; 
3881 end; 


(3) : !WE ARE IN QUAD 3 


‘QUAD 3 SECTORS END AT 


Ce ee ee ee ee oe oe 
Ww 
co 
oo 
Ww 


3888 tes; 


incr SEC_NUM from .START_SEC to .END_SEC do 
3891 begin 


3893 if .ERROR_MAP [.SEC_NUM, 
then 

3895 begin 

ROW_CNT = .ROW_CNT + 1; 


3898 if .ROW_CNT gtr 9 
then 

3900 beg 

3901 ALL "BAD = 


3903 if .ALL_BAD gtr 9 
3904 then 


.WRD_INDEX, 


‘uP THE BAD ROW COUNT 
-ALL_BAD + 1; 


selectone ory of ‘FIND WHICH ROW 
set 


CO  m 127, 256 to 383] : 
“BLST_ TBL C.ALL _BAD, R_C_NOJ 


[128 to 255, 384 to 511] : 
TMP _BLST_ TBL C.ALL_BAD, R_C _NOJ 
3918 tes; 


TMP_BLST_TBL C.ALL_BAD, NIB_NOJ = 


Se Be ey Pee 
WWW 
S38 
—y 


incr index from 0 to .PTR do 
COL_CNT_TBL [.COL_PTR C.indexJ] = 


3925 if .QD_PAIR_LOOP eql 0 
then 


incr CLR_SEC_ROW from 0 to 
ERROR_MAP [.CLR_SEC_ROW, 


ee ee eee ee ee ee ee 
WG GW WNW 
8 e) Go 00 CO 
oO 000 
Ww Nm oO oON 


re ee ee ee 2 ee 2 
Ww 
D2) 
iat) 
ins) 
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!INIT THE COLUMN POINTER TABLE 


‘QUAD 2 SECTORS START AT 128 
‘QUAD 2 SECTORS END AT 255 


.BIT_INDEX, ONE, ZERO] eql 1 


sea 149 


wats ‘QUAD 3 SECTORS START oF ue 


'SEARCH THRU ALL SECTORS FOR THIS QUAD 


'1S THIS ROW BIT SET 


‘IS THERE > THEN 10 BAD ROWS 


'UP THE ALL BAD COUNT 
'TS THERE > 10 ALL BAD ROWS/COLUMNS 
return .ALL_BAD !EXIT AND RETURN THE THE COUNT 


!'THIS IS A BAD ROW 
NUMBER THIS IS 


-BAD_CHIP/4; 


: DECREMENT THE COLUMN COUNTS 
-COL_CNT_TBL C.COL_PTR C.index]] = 1; 


'CLEAR THE QUAD OF THIS ROWW 


127 do 
.WRD_ INDEX, 


- ROW_NUM; 


.ROW_NUM + 128; 


‘FIND WHICH NIBBLE ITS IN 


.BIT_INDEX, ONE, ZERO] = CLR_FLG 
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3933 i -QD_SEARCH leq 1 
n 
3935 begin 
3937 _, an SEC_ROW from 0 to 127 do 
3938 ROR MAP C.CLR_SEC_ROW, .WRD_INDEX, .BIT_INDEX, ONE, ZEROJ 
3939 EER. FCG; 
3941 incr CLR_SEC_ROW from 256 to 383 do 
3942 ERROR_MAP (.CLR_SEC ROW. -WRD_INDEX, .BIT_INDEX, ONE, ZERO] = 
3943 CLR_FCG; 
3945 end 
3946 else 
3947 begin 
3949 ~_ ae SEC_ROW from 128 to 255 do 
3950 ROR MAP C.CLR_SEC_ROW, .WRD_INDEX, .BIT_INDEX, ONE, ZERO] = 
3951 LR. FCG; 
3953 —, af SEC_ROW from 384 to 511 do 
3954 ROR_MAP [.CLR_SEC_ROW, .WRD_INDEX, .BIT_INDEX, ONE, ZEROJ 
3955 ELR FCG; 
3957 . end; 


3959 leave A; ‘LEAVE THE LOOP AND DO THE NEXT ROW NUMBER 
3960 end; . 


3962 end 
3963 else 
3964 begin 


toro selectone .SEC_NUM of ' INCREMENT THE ADJACENT COLUMN COUNT TABLE 
set 


3969 (0 to 127]: 
begin 
3971 COL_INDEX = .ROW_NUM + .SEC_NUM; 
if .COL_INDEX geq 128 then COL_INDEX = .COL_INDEX = 128; 
3975 end; 
3977 C128 to 255] : 
begin 
3979 COL_INDEX = .ROW_NUM + (,SEC_NUM = 128); 
5 3981 if .COL_INDEX geq 128 then COL_INDEX = .COL_INDEX = 128; 


Pe ee ee ee ee ee ee Pe ee ce Be Oe Be Oe Be Oe we Be FH Be we Be FH He He Se TH He BH wy 
Ww 
‘Oo 
=~ 
co 
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011772 
011776 





004167 


012766 
? 


0004 
012766 


return .ALL_BAD; 
end; 


0000006 
000032 
177777 
172440 
037014" 
000022 
000030 
600001 


end; 
end; 


end; 


000010 
000177 


000022 


end; 


end; 


COL 
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end; 
(256 to 383] : 
begin 
COL_INDEX = .ROW_NUM + (.SEC_NUM = 128); 
if .COL_INDEX geq 256 then COL_INDEX = .COL_INDEX = 128; 
end; 
(384 to 511] : 
begin 
COL_INDEX = .ROW_NUM + (.SEC_NUM = 256); 
if .COL_INDEX geq 256 then COL_INDEX = .COL_INDEX = 128; 


end; 
tes; 


-CNTSTBL C,COL. INDEX] = .COL_CNT_TBL [.COL_INDEX] + 1; 


PTR 
COL PTR C.PTR] = .COL_INDEX; 


end: 

end; 
.SRTTL S.ERROR.MAP ROUTINE DECLARATIONS 

S.ERROR.MAP: 
JSR R1,$SAVE5 3 3774 
SUB #32,SP 
MOV #-1,10(SP) 3; *,ALL.BAD 3824 
JSR PC, i. COL.CNT.TBL i 3825 
CMP BNK . NUM.SEC, #177 : 3827 
BNE 1$ 
CLR 22(SP) ; QD.PAIR.LOOP 3830 
CLR 30(SP) ; QD.NUM. SEARCH 3831 
BR 2$ : 3827 

1$: MOV #1,22(SP) : *,QD.PAIR.LOOP 3835 
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012044 012766 000001 000030 MOV #1,30(SP) ; *,QD.NUM, SEARCH 3836 
' 912052 012766 177776 0600020 2$: MOV #-2,20(SP) + *,QD.OFFSET 3839 
912060 005066 000026 CLR 26 (SP) : QD.LOOP 3841 
| 012064 000167 001502 JMP 43$ 
| 912070 062766 000002 000020 3$: ADD #2,20(SP) : *,QD.OFFSET 3843 
012076 016666 000030 000016 MOV 30(SP) , 16(SP) * QD.NUM. SEARCH, * 3852 
| 012106 066666 000020 000016 ADD 20(SP),16(SP) : QD.OFFSET,* 
012112 005003 CLR R3 + ROW.NUM 3845 
012114 010346 4$: MOV R3,=(SP) : ROW.NUM, * 3847 
012116 012746 000020 MOV #20,-(SP) 
| 012122 004767 0000006 JSR PC ,BLSDIV 
| 012126 010066 000012 MOV RO.12(SP) : *,WRD. INDEX 
012132 010316 MOV R3. (SP) + ROW.NUM, * 3848 
012134 012746 000020 MOV #20,-(SP) 
912140 004767 0000006 JSR PC ,AL$MOD 
012144 010066 000012 MOV RO.12(SP) : *,BIT. INDEX 
012150 016666 000026 000006 MOV 26(SP) ,6(SP) * QD. OFFSET, QD.SEARCH 3852 
012156 005366 000006 DEC 6(SP) + QD.SEARCH 
012162 000167 001340 JMP 40$ 
012166 616605 000006 5$: MOV 6(SP) RS : QD. SEARCH, * 3856 
012172 006305 ASL RS 
012174 066507 012200° ADD 6$(R5) .PC 
012200 000010 63: \WORD 7$-6$ 
012202 000042 “WORD 8$-6$ 
012204 0 "WORD 9$-6$ 
512206 000114 . "WORD 10$-6$ 
012210 005066 000032 7$: CLR 32(SP) : ROW. CNT 3861 
012214 012766 177777 000010 MOV #-1,10(SP) + *,PTR 3862 
012222 004767 172302 JSR PC,1.COL.PTR : 3863 
012226 005066 000022 CLR 22(SP) + START.SEC 3864 
012232 012766 000177 000020 MOV #177, 20(SP) + *,END.SEC 3865 
012240 000433 BR 11$ : 3856 
012242 012766 000400 000022 8$: MOV #400, 22(SP) * START. SEC 3870 
012250 012766 000577 000020 MOV #577.20(SP) + * END. SEC 3871 
012256 000424 BR 11$ : 3856 
012260 005066 000032 9$: CLR 32 (SP) + ROW. CNT 3876 
012264 012766 177777 000010 MOV #-1,10(SP) + «PTR 3877 
012272 004767 172232 JSR PC,{.COL.PTR : 3378 
012276 012766 000200 000022 MOV #200,22(SP) + «START. SEC 3879 
012304 012766 000377 000020 MOV #377 ,20(SP) > *.END.SEC 3880 
012312 000406 BR 11$ : 3856 
012314 012766 000600 000022 10$: MOV #600, 22(SP) + *, START. SEC 388 
012322 012766 000777 000020 MOV #777.20(SP) + «END. SEC 
012330 016605 000022 11$: MOV 22(SP) .R5 > START.SEC,SEC.NUM 3390 
012334 005305 DEC RS > SEC.NUM 
012336 000167 001150 12$:  JMP 39$ 
012342 010500 13$: MOV R5,RO ; SEC.NUM,* 3893 
012344 006300 ASL RO 
012346 006300 ASL RO 


012350 006300 ASL RO 
012352 066600 000014 ADD 14(SP) ,RO ; WRD.INDEX,* 
012356 006300 ASL RO 


BSKELS 
REV A PATCH 00 


ROUT INE 
006626" 


000014 
000001 


0000006 
000010 
000032 
000032 
000654 
000016 
000016 
000006 
001126 
000016 
026744" 
100000 
000177 
000400 


000577 


000200 
000377 
000600 
000777 


000200 


170017 
007760 


000056 
000004 
06000006 


DECLARATIONS 


000011 


000011 


14$: 


15$: 


16$: 


17$: 
18$: 


19$: 


20$: 
218: 


223: 


K 12 
21-Apr-19 
21-Apr-19 

#ERROR .MAP ,RO 
R P) 


0,-(S 
14(SP) ,=(SP) 
#1,-(SP) 


-(SP) 
PC ,BL$GT2 
#10 


00 CO 
—) = 


32. SP) 
32(SP) ,#11 
14$ 

33$ 

16(SP) 
ee 
#6,SP 

44$ 
 atadactys 


R 
#TMP.BLST.TBL.R4S 
—— 


— 
Ww 


16$ 
RS,#177 
17$ 
R5,4400 
RS, A577 
18$ 
R3,R2 
21$ 
R5,4200 
19$ 
R5 #377 
0$ 
RS, #600 
R5 A777 
22 


#170017 ,R2 
#7760, (R4.e 
R2, (R4) 
56(SP) ,=(SP) 
#4,-(SP) 

PC ,BLSDIV 


TOPS=20 Bliss=-16 V2(212) ge 120 
PA:<NEALE>PMSKL4.BL1.1 (41) sea 96153 

; BIT. INDEX,* 

; ROW.CNT 3896 
; ROW.CNT,* 3898 
; ALL.BAD 3901 
; ALL.BAD,* 3903 
; 3905 
; ALL.BAD,* 3908 
; SEC.NUM 3910 
: SEC.NUM,* 

; SEC.NUM,* 

; SEC.NUM,* 

; ROW.NUM,* 3914 
; SEC.NUM,* 3910 
3; SEC.NUM,* 

; SEC.NUM,* 

; SEC.NUM,* 

; ROW.NUM,* 3917 
; BAD.CHIP,* 3920 


| 
| 


BS 


012624 


KELS 
REV A PATCH 00 





ROUTINE DECLARATIONS 


177760 
000017 


23$: 


001220" 
000000" 
000000" 


000014 248: 


000034 


25$: 


000020 
006626" 


000020 
000001 


0000006 
000010 


000177 


000012 000001 26$: 


278: 


000020 
006626" 
000020 
000001 
0000006 
000010 
000177 


L 12 
21-Apr-19 
21-Apr-19 

#177760,R0 

#17, (R4) 

RO, (R4) 

R 

245 

RG 

Serene ae 
ers ee 
RO,COL.CNT.TBL(R4) 


R 
R2,14(SP) 
2 


coco 
iad 


R 

20(SP) ,RO 
RO 
#ERROR.MAP, RO 
RO,-(SP) 
20(SP) ,-(SP) 
#1,-(SP) 
-(§P) 

PC ,BLSPU2 
#10,SP 

R4 

R4,A177 

25$ 

32$ 

12(SP) ,#1 
29$ 

R4 

R4,RO 

RO 

RO 

RO 

20(SP) ,RO 
RO 
#ERROR.MAP RO 
RO,~(SP) 
20(SP) ,-(SP) 
#1,-(SP) 
-(§P) 

PC ,BL$PU2 
#10,SP 


R4 
R4 4177 


TOPS=20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (41) 


Be 


ee 


INDEX 


* (INDEX) ,* 


INDEX 
INDEX,PTR 
QD.PAIR.LOOP 


CLR.SEC.ROW 
CLR.SEC.ROW,* 


WRD. INDEX, * 


BIT. INDEX,* 


CLR.SEC.ROW 
CLR.SEC.ROW, * 
QD. SEARCH, * 


CLR.SEC.ROW 
CLR.SEC.ROW,* 


; WRD.INDEX,* 


BIT. INDEX,* 


Pa 121 
SEQ°0154 


3922 
3923 


3922 


3925 


3928 
3929 


3928 


3925 
3933 


3937 
3938 


3937 


w | 


013054 
013060 


013276 





00 
020427 


ROUTINE DECLARATIONS 


000400 


000020 
006626" 


000020 
000001 


000000G 
000010 
000577 


060200 


000020 
006626" 


000020 
000001 


000000G 
000010 


000377 
000600 


000020 
006626" 


000020 
000001 


0000006 
000010 


000777 


283: 


29$: 
30$: 


31$: 


2 
21-Apr-1981 08: 
21-Apr-1981 08: 
27$ 
#400 ,R4 
RO’ 
RO 
RO 
ra 
MERROR.MAP ,RO 
RO,-(SP) 
20(SP) ,-(SP) 
#1,-(SP) 


-(SP) 
PC ,BL$PU2 
#10,SP 


R 

> at 
MERROR .MAP ,RO 
RO,-(SP) 


-(SP) 
PC ,BL$PU2 
#10 


R 

sc ahs me 
#ERROR .MAP ,RO 
RO,-(SP) 


0,-(S 
20(SP) ,~(SP) 
#1,-(SP) 


TOPS=20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (41) 


; *,CLR.SEC.ROW 
; CLR.SEC.ROW,* 


; WRD.INDEX,* 


; BIT. INDEX,* 


CLR.SEC.ROW 
CLR.SEC.ROW,* 


; *,CLR.SEC.ROW 
; CLR.SEC.ROW,* 


; WRD.INDEX,* 


; BIT. INDEX,* 


CLR.SEC.ROW 
CLR.SEC.ROW,* 


; *,CLR.SEC.ROW 
; CLR.SEC.ROW,* 


; WRD.INDEX,* 


; BIT. INDEX,* 


CLR.SEC.ROW 
CLR.SEC.ROW, * 


Pa 
SE0°0155 


122 


3941 
3942 


3941 


3933 
3949 
3950 


3949 


3953 
3954 


3953 


wa ee 


—_-—_-- -—— 


013520 


BSKELS 
| REV A PATCH 00 
013302 003751 
0133 


ROUTINE DECLARATIONS 


000177 


000200 


000200 
000377 


0 
001220" 
000020 


32$: 
33$: 


34$: 


35$: 


37%: 
38$: 


39$: 


N 12 
21-Apr-1981 08:40 
21-Apr=1981 08:19 


318 
+: lathe 


#200,R1 
COL.CNT.TBL(R1) 
10(SP) 

10(SP) ,R4 

ST tatti: 


R5,20(SP) 
40$ 


TOPS=20 Bliss-16 V2(212) 
PA: <NEALE>PMSKL4.BLI.1 


Be Be Be Be Be 


SEC .NUM 
SEC .NUM,* 


SEC.NUM, oa: INDEX 
ROW. NUM, 


COL. INDEX, ; 


SEC.NUM, * 
SEC.NUM,* 
SEC .NUM, * 
ROW.NUM, * 


: *,COL. INDEX 
; *,COL. INDEX 
: COL. INDEX, * 


SEC .NUM,* 
ROW. 
* COL. INDEX 


*,COL. INDEX 
COL. INDEX, * 


Stl.NUM,* 


; SEC.NUM,* 


SEC .NUM,* 
ROW.NUM, * 


: *, COL. INDEX 
: *-COL. INDEX 
> COL. INDEX,* 


; *,COL. INDEX 
; *(COL. INDEX) 


PTR 

PTR,* 

COL. INDEX,* 
SEC .NUM 


- INDEX 


C. 
SEC .NUM, END. SEC 


Page 125 
SEO 0156 


3959 
3966 


————E——————eeee 


BSKELS 
REV A PATCH 00 
013522 000167 


; Routine Size: 
3 Maximum stack 





ROUTINE DECLARATIONS 
176614 

000006 

000006 000024 
176420 

000006 


000177 
176326 
000026 
000026 000022 
176262 
000010 
000032 


459 words ‘ 
depth per invocation: 


40$: 


418: 


42$: 
43$: 


44%: 


28 words 


B 13 
21-Apr-1981 08:40:22 
21-Apr-1981 08:19:06 


P) 
P) ,24(SP) 


#6, SP 
R3 

R3,4177 

42$ 

4$ 

26(SP) 

26(SP) ,22¢SP) 
44$ 

3$ 

10(SP) ,RO 


#32,SP 
PC 


TOPS=20 Bliss<-16 V2(212) 
PA:<NEALE>PMSKL4.8L1.17 (41) 


QD. SEARCH 
QD. SEARCH,* 


ROW.NUM 
ROW.NUM, * 


; QD.LOOP 


QD.LOOP,QD.PAIR.LOOP 


ALL.BAD,* 


Pa 124 
SEO 0157 


3852 
3846 
3845 
3841 


3775 
3774 


C 13 
BSKELS 21-Apr-1981 08:40:22 
REV A PATCH 00 ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 


4020 routine S_CHIP_TBL (START) = 
4021 begin 


++ 
FUNCTIONAL DESCRIPTION: SEARCH THE BAD CHIP TABLE 


THIS ROUTINE SEARCHES THE BAD CHIP TABLE 
LOOKING FOR FAILING CHIPS. WHEN A FAILING 
CHIP IS FOUND THE FAILING CHIP NUMBER IS 
RETURNED. IF NO FAILING CHIP IS FOUND 


INDICATES WHERE TO START SEARCHING 
IN THE BAD CHIP TABLE 


TOPS=20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (42) 


4038 incr TBL_INDEX from .START to 38 do 'SEARCH THRU THE CHIP TABLE 
'EXIT AND RETURN NDEX 
4042 return -1; ‘EXIT AND RETURN -1 IF NO CHIP FAULTS ARE DETECTED 


4040 if .CHIP_TBL C.TBL_INDEX, FAULT] then return .TBL_INDEX; 
4043 end; 
.SBTTL S.CHIP.TBL ROUTINE DECLARATIONS 
013620 010146 S.CHIP.TABL: 
MOV R1,-(SP) 
013622 016600 000004 MOV 4(SP) ,RO 
013626 005300 DEC RO 
013630 000405 BR 2$ 
013632 010001 1$: MOV RO,R1 
00630 R1 
013636 005761 026626' TST lh minis 


013644 905200 2$: INC RO 
013646 020027 0600046 CMP —— 


013654 012700 177777 MOV #-1,RO0 
013660 012601 3$: MOV Sea 


: Routine Size: 18 words 


: : 

: 

: ; 

, = ; 

: 

: 4030 THEN A -1 1S RETURNED. 
: 4032 | FORMAL PARAMETERS: 

: 4033! STRAT: 

: 

: 

: Maximum stack depth per invocation: 2 words 


START, TBL. INDEX 
TBL . INDEX 


TBL.INDEX,* 


; TBL. INDEX 


TBL.INDEX,* 


Page 125 
SE0-0158 


4020 
4038 


4040 


4038 


4021 
4020 





BSKELS 
REV A PATCH 00 


° 
* 
° 
° 
° 
° 
° 
° 
© 
° 
° 
. 
2 
° 
° 
om 
° 
° 
° 
° 
° 
° 
. 
° 
° 
o 
. 
° 
° 
° 
* 
° 
° 
7 
° 
’ 
. 
° 
° 
e 
o 
* 
* 
. 
* 
* 
* 
° 
° 
° 
* 
@ 
’ 


ROUTINE DECLARATIONS 


D 13 
21-Apr-1981 08:40:22 TOPS=20 Bliss-16 V2(212 
21-Apr-1981 08:19:06 PA: <NEALE>PMSKL4.BLI.1 (43) 


routine RD_OLD_PROM_DATA (ARRS$BNK_SEL) : novalue = 


‘+ 
i 
i 
i 
1 
i 
i 
i 
i 
i 
i 
im 


begin 


FUNCTIONAL DESCRIPTION: READ THE OLD PROM DATA INTO THE ERROR MAP 


THIS ROUTINE WILL READ THE OLD PROM DATA 
STORED IN PROM ON THE TESTED ARRAY INTO 
THE ERROR MAP. 


FORMAL sate —~ 


RR$BNK_SEL: 
STORES THE SELECTED ARRAYS ARRAY AND BANK SELECT 
NUMBERS 


Local 


PROM_ADRS, 'STORES THE BUILT PROM ADDRESS 
FINISH; 'INCR LOOP ENDING VARIABLE 
p 
ERROR_MAP : blockvector (4, 512] volatile; 'MAP THE ERROR_MAP THE SAME AS THE BLAST TABLE 
if .BNK_NUM_SEC eql 127 then FINISH = 127 else FINISH = 255; 'SELECT THE LOOPS ENDING 
RD_PROM_MO —_ “ENABLE PROM READS 
PROM_ADRS = EAOES; 'CLEAR THE PROM ADDRESS 
PROM _. ~ARecI 1. = .ARRS$BNK_SEL<.ARR_SEL _POS, ARRSSEL _SIZE>; 'SELECT THE ARRAY 


incr SEL_BNK from 0 to 3 do ‘READ PROM DATA FOR ALL FOUR BANKS ON THIS ARRAY 
Bean ADRS<10, 1> = ZERO; 'THE FIRST LOOP READS ROW PROM DATA 
PROM_ADRS<8, 2> = .SEL_BNK; 'SELECT THE PROMS BANK POSITION 


incr ROW_NUM from 0 to .FINISH do 'READ OUT ALL THE PROM ROW DATA 


3 Uy ADRS<0, 8> = .ROW_NUM; 'SELECT THE ROW ADDRESS 
WRT_RH (MLPA, PA_ REG, =PROM_ADRS); ‘WRITE THE ADDRESS TO THE MLPA REG 
DELAY (ONE_US); WAIT FOR PROM DATA TO CLOCK INTO MLPD 
ERROR_MAP T. SEL _BNK, «ROW NUM, FULL RD} = .ML_ADDR CMLPD, PD_REGJ; 

. 'PUT THE PROM DATA INTO TRE ERROR MAP 
end; 


PROM_ADRS<10, 1> = ONE; 'THIS LOOP WILL READ OUT THE PROM COLUMN DATA 
incr COL_NUM from 0 to .FINISH do 'READ OUT ALL THE PROM COLUMN DATA 


bea ADRS<0O, 8> = L_NUM; 'SELECT THE COLUMN ADDRESS 

WRT RH (MLPA, PA “RiG. TPROM_ADRS) ; waite THE ADDRESS TO THE MLPA REG 

DELAY (ONE_US); WAIT FOR PROM DATA TO CLOCK INTO MLPD 

ERROR_MAP [. sei _BNK, .COL_NUM + .COL BASE. FULL_WRDJ = .ML_ADDR CMLPD, PD_REG); 
TLOAD THE ERROR MAP WITH THE PROM DATA 


Page 126 
SE0°0159 





— BSKELS 


014050 


006 

005004 
000444 
105002 


CLR_ 


end; 


0000006 


000022 
037014" 


000042 


037010" 
000004 


0000006 


103777 
074000 


176377 
003400 


REv 4 PATCH 00 ROUTINE DECLARATIONS 


end; 
end; 
MBUS ; 


000177 


000016 


.SBTTL 
sincerest * matead 
J 


3$: 


4%: 


- GLOBL 


E 13 
21-Apr-1981 08:4 
21-Apr-1981 0 


8:40:22 
8:19:06 


‘CLEAR OUT THE PROM READ MODE 


LS$DLY 


RD.OLD.PROM.DAT ROUTINE DECLARATIONS 


R1,$SAVE5 
#22, 

#177, (SP) 
2$ 


#377, (SP) 
ML .AD 


ADDR,R1 
24(R1),16(SP) 


#40,R0 
ML.ADDR ,R1 
RO,24(R1) 
R 


2 
#42,-(SP) 
SP,(S 


P) 
ARR. SEL .POS,-(SP) 


4 ,-(SP) 
-(SP) 

PC ,BL$GT2 
RO 

RO 

RO 

RO 
#103777,RO 
#74000,R2 
RO,R2 

R5 

R5S,R4 


R4 
#176377,R4 
#3400,Re 


SP 
7 a UM.SEC 4177 


- 
’ 


*,F INISH 
*,F INISH 


*,ML.REG 
* ,MLREG 


MLREG,* 
PROM.ADRS 


; ARR$BNK.SEL,* 


* ,PROM. ADRS 
* ,PROM. ADRS 


* ,PROM. ADRS 
* ,PROM. ADRS 
SEL .BNK,* 


ROW .NUM 


; PROM.ADRS 


TOPS=20 Bliss=-16 V2(212) 
PA: <NEALE>PMSKL4.BL!.1 


(43) 


Pa 127 
SEO°0160 


4044 
4067 


4070 
4071 


4073 
4076 


4083 


4078 
4089 


 BSKELG 
_ REV A PATCH 00 
014052 


014312 


ROUTINE DECLARATIONS 


036772" 
000020 


036772' 
000020 
000001 
0000006 


000030 


036772" 
000046 
000022 
000010 


002000 


036772" 
000020 


036772" 
000020 
000001 
0000006 
000030 


036770" 


036772" 
000046 
000016 


000010 


000024 


000022 
006626" 


000020 


000016 
006626" 


5$: 


6$: 


7$: 


.8$: 


9$: 


10$: 


14$: 


15$: 


F 13 
21-Apr=-198 
21-Apr=-198 


R4,R2 
ML .ADDR,R1 
20(R1) ,24(SP) 


Re, 
ML.ADDR,R1 
ae wets 


8$ 
LSDLY,R1 
7$ 
30(SP) 

R 


mM. ADDR ,R1 
46(R1) ,22(S 
sli ERROR.  MAP(R3) 


Re, 10¢SP) 
4$ 
#2000,R2 
R3 

15$ 

R2 

R3,R2 
ML.ADDR,R1 
20(R1),20(SP) 
R2,R4 

ML .ADDR,R1 
R4,20(R1) 
#1,R4 


R3,R4 

COL .BASE ,R4 

R4 

ML .ADDR ,R1 

46(R1), 16(SP) 
16(SP) ,ERROR MAP (R4) 


R3 
R3,10(SP) 


TOPS=20 Bliss-16 veN ee) 
PA: <NEALE>PMSKL4.BLI. 


; ROW.NUM,PROM. ADRS 


Be Be Be Be 


. 


-ML.REG 
; PROM.ADRS ,MLREG 


MLREG,* 


; *, $$TMP2 


*,$$TMP1 


$$ IMP 
$$TMP1 


$$TMP2 


; ROW.NUM,* 


*,ML.REG 
ML.REG,* 


ROW.NUM 
ROW.NUM,F INISH 
* ,PROM. ADRS 
COL .NUM 


; PROM.ADRS 


COL .NUM, PROM. ADRS 


; *,ML.R 


-ML.REG 
PROM. ADRS ,MLREG 


MLREG,* 
* ,S$TMP2 


* ,SSTMP1 


$STMP 
$$TMP1 


$$TMP2 
COL .NUM, * 


*,.ML.REG 
ML.REG,* 


COL .NUM 
COL .NUM,F INI SH 


ge 128 


seo 70161 


4081 


4082 


4083 


4095 


4094 


4089 


BSKELS 
REV A PATCH 00 
014316 003727 


oO 
ai 
&* 
Ww 
WN 
oO 
Oo 
pow’ 
oO 
~N 
oO 
= 


014432 000207 


> Maximum stack 


oO 


— 


; Routine Size: 


ROUTINE DECLARATIONS 


000003 


036772" 
000010 000014 


2 
tala Be 000012: 


036772" 
000010 
000032 


180 words 


depth per invocation: 


G 13 
21-Apr-1981 08:40:22 
21-Apr-1981 08:19:06 


3 

ML.ADDR,R1 
10(R1),14(SP) 
14(SP) ,RO 
ML.ADDR,R1 
RO,10(R1) 
ML.ADDR,R1 
10(R1),12(SP) 
12(SP) ,RO 

ML ..DUT,R5 
#177770,R5 
#7,RO 

R5,RO 

ML ..ADDR ,R1 
RO,10(R1) 
#32,SP 

PC 


TOPS:-20 Bliss=16 V2(212) 
PA:<NEALE>PMSKL4.ABLI.1 


Be Be Be Fe 


ee. 


SEL .BNK 
SEL .BNK,* 


*,ML.REG 
ML .REG,MLREG 
* ,MLREG 


MLREG,* 


* ,ML.REG 
; ML.REG,MLREG 


* ,MLREG 
* ,MLREG 


MLREG,* 


Pa 129 
sea 0162 


4073 


4098 


4044 


BSKELS 
REV 4 PATCH 00 


014434 


014440 
014444 


te ae a a a a oe ot et 
ee a ot ot aot ot 2 
M3 SBS 8 es es 
OOONAWEW— 


ROUTINE DECLARATIONS 


routine OR_LOLD_NEW_PD (BNK_NUM) 


begin 


++ 


map 
ERROR_MAP : 
incr CNT from 0 to .MAX_CHIP_COL*e = 1 do 


end; 


0000006 
036774" 
000014 


026770° 


begin 
iF AM. [.BNK_NUM, .CNT, FULL_WRDJ neq ZERO 
n 
BLAST_TBL C.RBNK_NUM, .CNT, FULL_WRDJ 
-BNK_NUM, .TNT, FULL_WRDJ; 
end; 
.SRTTL 
OR.OLD.NEW.PD: 
JSR R1,$SAVE4 
MOV MAX. CHIP.COL,R4 
ASL RG 
MOV 14(SP),RO 
SWAB RO 
CLRB RO 
ASL RO 
CLR R1 
BR 3$ 
1$: MOV RO,R3 
ADD R1,R3 
ASL R3 
MOV #BLAST.TBL.R2 
ADD R3,R2 
1ST (R2) 


FORMAL PARAMETERS: 


ARRSBNK _ 


H 13 
21-Apr-19 
21-Apr-19 


: novalue = 


FUNCTIONAL DESCRIPTION: OR THE OLD PROM DATA STORED IN THE ERROR MAP 


TOPS=20 Bliss-16 V2(212) 
PA: <NEALE>PMSKL4.BL!I.1 


WITH THE NEW PROM DATA STORED IN THE BLAST TABLE 


SEL: 
STORE 
NUMBE 


ONCE THE NIBBLE OFFSET HAVE COUNTED AND 
THERE DOES NOT EXIST OFFSET > 14 THEN 
OLD PROM DATA STORED IN THE ERROR MAP 
AT THIS BANK IS OR*ED INTO THE BLAST 
TABLE WHERE THEN THE CHECK SUMS CAN 


BE CALCULATED. 


SELECTED ARRAYS ARRAY AND BANK SELECT 


blockvector (4, 512] volatile; 


OR.OLD.NEW.PD ROUTINE DECLARATIONS 


'MAP THE ERROR MAP LIKE THE BLAST TASBLE 
'OR ALL NON ZERO BLAST TABLE LOCATIONS 


'TS THIS LOCATION NOT ZERO 


= .BLAST_TBL C.ANK_NUM, .CNT, FULL WRDJ or .ERROR_MAP [ 
'OR THIS LOCATION WITH ADJACENT ERROR MAP LOCATION 


BNK .NUM, * 


CNT 


: CNT,* 


Page 130 
SEQ 0163 


4102 
4124 


4127 


4124 
412? 


== 


a 
A = 


BSKELS 
REV A PATCH 00 ROUTINE DECLARATIONS 


914502 001403 
014504 056363 006626" (26770" 
014512 005201 
014514 020104 
014516 002762 
014520 000207 


; Routine Size: 27 words | : 
>; Maximum stack depth oer invocation: 


3$: 


5 words 


I 13 
21-Apr-19 


81 08:40: 
21-Apr-1981 08:1 


0:22 
9:06 
2$ 

 eaaaadhaiptiannind: Seach 5 
R 

R1,R4 

1$ 

PC 


TOPS=20 Bliss=16 v2(212) 
PA:<NEALE>PMSKL4.BL1.1 


> CNT 
; CNT,* 


ge 
SEQ 0164 


131 


4129 
4124 


4102 


J 13 
21-Apr-1981 08:40:22 


' BSKELSG TOPS=20 Bliss=-16 V2(212) Page 132 
REV A PATCH 00 ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI.1 (45) SEQ 0165 
; 4135 routine BIT_CiR_OLD_NEW (BNK_NUM) : novalue = 
: 4136 begin 
; 4137 
: 4138 l+e 
: 128 i FUNCTIONAL DESCRIPTION: BIT CLEAR THE OLD AND NEW PROM DATA 
é 4 : 
; 4141! WHEN A FAILING CHIP IS SEARCHED FOR NEWLY 
: 4142 =! FAILING ROWS AND COLUMNS THERE IS ALWAYS 
| 3 6143! THE POSSIBLY THAT OLD BAD ROWS OR COLUMNS 
| 3 6144! MAY ALSO FAIL. IN FACT WE HOPE THEY DO 
| 4145 | SO TO GIVE US A PAST HISTORY OF HOW THE 
iy 4146 ' THE CHIP IS PERFORMING. 
ig 4 : 
| 3 4148! THESE FAILING ROWS AND COLUMNS IF ANY 
‘> 4169 MUST BE CLEAR OUT FROM THE BLAST TABLE 
|. 4150 ! TO ALLOW THE COUNTING OF BAD NIBBLE OFF= 
; 4151! SETS. 
: 6152 ! 
: 4153 | THIS ROUTINE BIT CLEARS THE ERROR MAP WITH 
: 4136 : THE BLAST TABLE AT THE SELECTED BANK. 
: 4156 ' FORMAL PARAMETERS: 
: 4157 ! BNK __NUM : 
: 4128 ‘ SELECTED BANK NUMBER FOR BIT CLEARING. 
| S10 
; 4161 map 
gr rh ERROR_MAP : blockvector [4, 512] volatile; ‘MAP THE ERROR MAP LIKE THE BLAST TABLE 
: $16 incr CNT from 0 to .MAX_CHIP_COL*2 - 1 do !BIT CLEAR BLAST TABLE WITH ERROR MAP AT THIS BANK 
: begin ‘ 
: 4166 BLAST TRL [.BNK_NUM, .CNT, FULL_WRD] = ( not .ERROR_MAP [.BNK_NUM, .CNT, FULL_WRD]) and .BLAST_TBL C 
; 4167 -BNK_NUM, .CNT, FULL_WRDJ; 
; 4168 end; 
; 4169 
: 4170 end; 
c .SBITL BIT.CLR.OLD.NEW ROUTINE DECLARATIONS 
014522 004167 0000006 BIT.CLR.OLD.NEW: 
JSR R1,$SAVE3 é 4135 
036774" mov MAX. CHIP.COL .R3 : 4164 
L 
000012 MOV 12(SP),RO : BNK.NUM,* 4166 
SWAB RO 
CLRB RO 
ASL RO 
CLR a} : CNT 4164 
1$ MOV RO,R2 2 4166 
ADD R1,R2 : CNT,* 
ASL R2 
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014560 046262 006626" 926770° 
014566 005201 
014570 020103 
014572 002767 
014574 900207 


3: Routine Size: 22 words 


: Maximum stack depth per invocation: 


2$: 


4 words 


K 13 
21-Apr-1981 08:40:22 
21-Apr-1981 08:19:06 


ERROR .MAP(R2) ,BLAST. TBL (R2) 
R1,R3 

1$ 

PC 


TOPS=20 Bliss=-16 V2(212) 
PA:<NEALE>PMSKL4.BLI1.1 (45) 


. 
. 


CNT 
CNT,* 


Pa 133 
SEO 0166 


4164 


4135 
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| ; 4171 routine IN_BLAST_TBL (ARRSBNK_SEL, TSTED_BNK) : novalue = 
Fern | cba 
| 3 4174 !+4 
| 2 ne : FUNCTIONAL DESCRIPTION: INTERIGATE THE BLAST TABLE 
| : 
| 4177! THIS ROUTINE FIRST CLEARS THE BLAST TABLE 
| 3 4178 ! OF ANY OLD BAD ROW OR COLUMN DATA THAT MIGHT 
; 4179 ! HAVE BEEN FOUND DURING THE SEARCHING FOR NEW 
; 4180 FAILING ROWS AND COLUMNS. 
_ 4182 ! THE SELECTED BANK IS THEN SEARCHED TO SEE IF 
: tt set ROOET IGNM, FAILING ROWS OR COLUMNS WERE 
: 4185 ! 
; 4186 ! IF NO ADDITIONAL FAILING ROW COLUMNS WERE 
: 18? ! FOUND THEN THE BANK IS NOT FURTHER TESTED. 
: 4189! IF ADDITIONAL FAILING ROW OR COLUMNS WERE 
; 4190 ! FOUND THEN THE BLAST TABLE AND THE ERROR 
: “121 MAP IS SEARCH FOR NIBBLE OFFSET > 14. 
: 4193 ! 
: 4194 _ ! 
; 4195 |! FORMAL PARAMETERS: 
3 4196! ARR$BNK_SEL : 
3 4197! STORES THE SELECTED ARRAYS ARRAY AND BANK SELECT 
3 4198 ! NUMBERS. 
; 4199! TSTED_BNK: 
; 4200 ! INDICATES HOW MANY BANKS PER ARRAY MODULE 
; “531 : IS TO BE PM'ED. 
; 4203 
$ 4204 Local 
: 4205 _0_SUM, 'QUADRANT 0 OFFSET SUM = SECTORS 0-127 
; 4206 QD_1—SUM, 'QUADRANT 1 OFFSET SUM = SECTORS 128-255 
; 4207 QD~2— SUM, ‘QUADRANT 2 OFFSET SUM = SECTORS 256-383 
; 4208 D_3_SUM 'QUADRANT 3 OFFSE = SECTORS 384-511 
; 4209 ROW_0_127_OFF, OFFSETS COUNT FOR ROWS 0-127 
: 4210 ROW_128_255_OFF, ‘OFFSET COUNT FOR ROWS 128-255 
: 4211 COlL_0_127_OFF, \OFFSET COUNT FOR COLUMNS 0-127 
; 4212 COL-128_255_OFF, ‘OFFSET COUNT FOR COLUMN 128-255 
; 4213 BNK_NUM, ‘STORES BANK SELECTOR 
; 4214 A . 'STORES ARRAY SELECTOR 
g osi2 OVER_FLOw; iSTORES OFFSET COUNTS WHICH ARE > 14 
: 4217 map 
; $e'8 ERROR_MAP : blockvector [4, 512] volatile; 'MAP THE ERROR MAP LIKE THE BLAST TABLE 
: 4220 I_ERROR_MAP (); ‘INIT THE ERROR MAP BEFORE WE STORE THE PROM DATA IN THERE 
: 4221 RB_OLD_PROM_DATA (.ARRSBNK_SEL); 'READ THE OLD PROM DATA INT® THE ERROR MAP 
; 4222 BNK_NUM = .ARR$BNK_SEL<.BNR_SEL_POS, BNK$SEL_SIZE>; !SELECT THE BANK TO INTERIGATE 
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4225 ARR_NUM = 
1558 incr SEL_BNK from 0 to .TSTED_BNK = 1 do 
0559 BIT c CLR_OLD_NEW (.BNK_NUM) ; 


4229 if S_BLAST_TBL (.BNK_NUM) 
4230 then 


$536 fe _BNK_REG C.BNK NUM] = SET_FiG; 
4234 iner oon ~— from 0 to 9 do 


4238 COL_O 
4239 COL_128_255 “OFF = = ZERO; 


4241 incr ROW_NUM from 0 to 127 do 
4242 begin 


4244 if .BLAST_TBL C.BNK_NUM, 
4246 : 
4248 if .ERROR_MAP C.BNK_NUM, 


end: 


incr COL_NUM from 0 to 127 do 


begin 
if .BLAST_TBL C.BNK_NUM, 


.ROW_NUM, 


-ROW_NUM, 


.COL_NUM + .COL_BASE, 


TOPS=20 Bliss=-16 v2(212) 


M 13 
21-Apr-1981 08:40:22 
PA:<NEALE>PMSKL4.BLI.1 (46) 


21-Apr-1981 08:19:06 


Page 135 
SEQ0168 


.ARRSBNK_SEL<.ARR_SEL_POS, ARRS$SEL_SIZE>; !SELECT THE ARRAY OF THIS BANK 


'INTERIGATE THE PM'ED BANKS 
'CLEAR THE OLD FAILING ROWS/COLS FROM THE BLAST TABLE 
!ARE THERE ANY NEW ERRORS IN THIS BANK 


'FLAG THAT THIS IS A BAD BANK 

'SEARCH THRU ALL NIBBLES IN THIS BANK 
!INIT THE ROW COUNT 

!INIT THE ROW COUNT 

!INIT THE COLUMN COUNT 

!INIT THE COLUMN COUNT 


'SUM THE NUMBER OF FAILING ROWS 0-127 


.NIB_NUM, 1, 0] then ROW_0_127_OFF 


-ROW_O_127_OFF + 1 


.NIB_NUM, 1, 0] then ROW_0_127_OFF = .ROW_O_127_OFF + 1 


'SUM THE NUMBER OF FAILING COLUMNS 0-127 


-NIB_NUM, 1, 0J 


then 
4258 COL_0_127_OFF = .COL_0_127_OFF + 1 F 


4260 if .ERROR_MAP [.BNK_NUM, 


.COL_NUM + .COL_BASE, 


-NIB_NUM, 1, 0] 


then 
4262 COL_0_127_OFF = .COL_O_127_OFF + 1; 


4264 end; 
4266 if .BNK_NUM_SEC gtr 127 


4270 incr ROW_NUM from 128 to 255 do 


4271 begin 


4273 if .BLAST_TBL [C.BNK_NUM, ROW_NUM, 


a an 
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4274 then 





'1S THIS A 64K PART 


'SUM NUMBER OF FAILING ROWS 128-255 


-NIB_NUM, 1, 0] 
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ROW_128_255_OFF = .ROW_128_255_OFF + 1; 


7 -ERROR_MAP [.BNK_NUM, 
t 


«ROW_NUM, .NIB_NUM, 1, 0] 


en 
ROW_128_255_OFF = .ROW_128_255_OFF + 1; 


end; 


incr COL_NUM from 128 to 255 do !SUM NUMBER OF FAILING COL 128-255 


begin 


if -BLAST_ TBL C.BNK_NUM, .COL_NUM + .COL_BASE, .NIB_NUM, 1, 0J 
© COL. 128_255_OFF = .COL_128_255_OFF + 1; 


if .ERROR_MAP C.BNK_NUM, 


~COL_NUM + .COL_BASE, .NIB_NUM, 1, 0J 


en 
COL_128_255_OFF = .COL_128_255_OFF + 1; 


-ROW_128_255_OFF + 
-ROW_0_127_OFF + 
-ROW_128_255_OFF + 


© 
—” 
NM 
§ 
wu 


-COL_0_127_ 
COL_ 12872557 
.COL_128_2 


OFF ; !SUM NUMBER OF FAILURES IN QUAD 1 
36 : a !SUM NUMBER OF FAILURES INQUAD 2 


55_OFF 'SUM NUMBER OF FAILURES IN QUAD 3 


QD_O_SUM = .ROW_0_127_OFF + .COL_0_127_OFF; !SUM NUMBER OF FAILURES IN QUAD 0 ~ 
if .QD_0_SUM gtr 14 'IS QUAD 0 OFFSETS > 14 


then 


hy (ERR_7, CON C_MSG, 0); 
PRINTB (A_B_N_PRINT. .ARR NUM 
DEGRADE, MOD “REG {.BNK_NUM] = 


REPORT THE ERROR 
BNK NUM, NIB.NUM); | !PRINT WHERE 
‘INDICATE TANS IS A DEGRADED BANK 


FLG; 
OVER_FLOW =".QD_0_SUM - 14; CALCULATE THE DIFFERENCE 


incr ROW_NUM from U to 127 do 


‘DELETE ROW OFFSETS UNTIL EQL 14 


if met C.BNK_NUM, .ROW_NUM, .NIB_NUM, 1, 0] '1S THIS ROW BAD 
t 


"be 
BL ST TBL C.BNK_NUM, 


-NIB_NUM, 0] = CLR_FLG; !CLEAR THIS BAD ROW 


.ROW 
OVER_FLOW = .OVER_FLOW - My MU IDECREMENT the DIFFERENCE 
QD_27SUM = .QD_2_SUM - 1; © iDELETE OTHER SUMS USING THIS ROW 


if .OVER_FLOW eql ZERO then exitloop; 'EXIT IF DIFFERENCE EQL 0 


end; 


if .OVER_FLOW neq ZERO 'DID DELETING BAD ROW GET THE DIFFERENCE TO 14 


then 
begin 


| 
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4328 incr COL_NUM from 0 to 127 do !DELETE BAD COLUMN UNTIL OFFSETS ARE AT 14 


4330 if .BLAST_TBL C.BNK_NUM, .COL_NUM + -COL_BASE, .NIB_NUM, 1, 0] 
433) then 


4333 ng TAL C.BNK an. FE pee NUM + BASE, B_NUM, 0] = CLR_FLG; 
4334 OVER_FLOW = .OVER F Te SECREME Ni ine Bere NCE 

4335 QD_1_SUM = .OD_ 1 rem - 1; i DELETE THIS COLUMN FROM OTHER SUMS 
4337 if .OVER_FLOW eql ZERO then exitloop; ‘EXIT IF DIFFERENCE IS AT 0 
4339 end; 

4341 end; 

4343 end; 


4345 if .BNK_NUM_SEC gtr 127 11S THIS A 64K PART 


Be Be wee Oe Oe BH FH Se SH oe FH w 
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nm 
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SRR AAA AAAS 
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4349 if .QD_1_SUM gtr 14 'TS QUAD 1 SUM > 14 
4350 then 


4352 ; rt Me (ERR_7, CON_C_MSG, 0); ‘REPORT THE ERROR 

4353 } PRINTB (A BN PRINT. .ARR_NUM, .BNK_NUM, .NIB_NUM); 'TELL WHERE 

4354 _ DEGRADE _MOD_REG tS BNK *NUMT = SET_FLG; | INDICATE THIS IS A DEGRADED BANK 
4355 OVER_FLOW = .QD_1_SUM - 14; TCALCULATE THE DIFFERENCE 


4357 incr ROW_NUM from 128 to 255 do 'DELETE BAD ROWS UNTIL OFFSETS ARE AT 14 


4359 -BLAST_TBL [.BNK_NUM, .ROW_NUM, .NIB_NUM, 1, 0] !IS THIS A BAD ROW 
then 


Hg be TBL C.BNK_NUM re NUM, .NIB_NUM, 0] = CLR-FLG; 

OVER_FLOW = gov VER uM Ne eatny THE DIFFERENCE 

QD_3_SUM = .QD_3_ fm - 1; ‘DELETE OTHER SUMS OF THIS BAD ROW 

4366 if .OVER_FLOW eql ZERO then exitloop; !E€XIT WHEN DIFFERENCE IS AT 0 

4368 end; 

4370 if .OVER_FLOW neq ZERO !IS THIS QUAD OFFSET AT 14 NOW 

4371 then 

4372 begin 

4374 incr COL_NUM from 0 to 127 do 'DELETE BAD COLUMNS UNTIL OFFSETS ARE AT 14 
4376 if .BLAST_TBL [.BNK_NUM, .COL_NUM + .COL_BASE, .NIB_NUM, 1, 0] 


4377 then 
4378 begin 
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if 


then 


-QD_2_SUM gtr 14 


C 14 
21-Apr-1981 08:40:22 TOPS=20 Bliss-16 V2(212) 
21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI.1 (46) 


BLAST_TBL [.BNK_NUM, .COL_NUM + BASE, .NIB_NUM, 1, 0] = CLR_FLG; 


OVER_FLOW = .OVER_ FLOw - 7; 'DECREMENT DIFFERENTE 
if .OVER_FLOW eql ZERO then exitloop; 'EXIT WHEN AT 0 
end; 
end; 
end; 
!1S THIS QUAD OFFSETS > 14 


rt Ms (ERR_7, CON_C_MSG, 0); 'REPORT ier Bye 

PRINTB (A_B_N_PRINT, .ARR NUM, .BNK_NUM, B_NUM) ; 'REPORT WHERE 
DEGRADE_MOD_REG [.BNK_NUM] = SET_FLG; INDICATE THIS 1S A DEGRADED BANK 
OVER_FLOW = .QD_2_SUM - 14; TCALCULATE THE DIFFERENCE 


incr ROW_NUM from 0 to 127 do  !DELETE BAD ROWS UNTIL OFFSET ARE AT 14 


c .BLAST_TBL C.BNK_NUM, .ROW_NUM, .NIB_NUM, 1, 0] ‘IS THIS A BAD ROW 
tnen 


ag He TBL C.BNK “Wi a NUM, .NIB_NUM 0J = CLR_FLG; 
OVER_FLOW = .OVER_F 1; ME NCRENT’ THE DIFFERENCE 


if .OVER_FLOW eql ZERO then exitloop; 'EXIT WHEN AT 0 
end; 
eee neq ZERO !1S QUAD OFFSETS AT 14 YET © 
begin 
incr COL_NUM from 128 to 255 do 'DELETE BAD COLUMNS UNTIL OFFSETS AT 14 


iM .BLAST_TBL C.BNK_NUM, .COL_NUM + .COL_BASE, .NIB_NUM, 1, 0J 
tnen 


Bt 8st TBL . BNK_NUM, .COL_NUM + .COL_BASE, .NIB_ NUM, ca shale 


.QD - 1; ‘DELETE OTHER SUMS OF Tas’ COL 
OVER FLOW = -OVER_ FLOW - 1; 'DECREMENT THE DIFFERNECE 


if .OVER_FLOW eql ZERO then exitloop; ‘EXIT WHEN AT 0 
end; 
end; 


end; 


Pa 138 
sE0°0171 


en ee ee ee ee ee ee ee ee ee ee ee ee ee re ee ee ee 2) 


we Se ee we Be Se we 


ee Be Be wy Be Be Be Be Be Be Be 


if .QD_3_SUM gtr 14 
then 


BaRSr (ERR_7, Sat : ioe a ide 


PRINTB (A BNP 


DEGRADE _MOD_ rec" i? BNK “AUNT > SET_FLG; 
D_3_SUM = 14; 


incr ROW_NUM from 128 to 255 do 


OVER_FLOw = 
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!1S THIS QUAD OFFSETS > 14 
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'REPORT THE ERROR 

re .BNK_NUM, .NIB_NUM); 'PRINT WHERE 
INDICATE THIS IS A DEGRADED BANK 
TCALEULATE THE DIFFERENCE 


'DELETE BAD ROWS UNTIL OFFSET ARE AT 14 


ae .BLAST_TBL C.BNK_NUM, .ROW_NUM, .NIB_NUM, 1, OJ !1S THIS A BAD ROW 
Brest TBL C.BNK_NUM, .ROW_NUM, .N 1, 0] = CLR_FLG; 'CLEAR 
OVER_FLOW = .OVER_FLOW - T; DECREMENT” THE DIFFERENCE 
if .OVER_FLOW eql ZERO then exitloop; 'EXIT WHEN AT 0 
end; 
A eae day neq ZERO !IS QUAD OFFSETS AT 14 YET 
begin 


incr COL_NUM from 128 to 255 do 

if .BLAST_TBL C.BNK_NUM, 
then 

Braet TBL C.BNK wi 

OVER_FLOW = 

if .OVER_FLOW eql ZERO then exitloop; 


end; 
end; 
end; 
end; 
end; 

OR_OLD_NEW_PD (.BNK_NUM) ; 

end; 
BNK_NUM = .BNK_NUM + 1; 
end; 

end; 


'DELETE BAD COLUMN UNTIL OFFSET AT 14 
.COL_NUM + .COL_BASE, .NIB_NUM, 1, 0J 


.COL_NUM + .COL_BASE, .NIB_NUM, 1, OJ = 


-OVER_ FLOW - T; 'DECREMENT DIFFERENCE 


'EXIT WHEN AT 0 


'OR THE OLD PROM DATA WITH NEW PROM DATA 


! INCREMENT TO THE NEXT BANK 


CLR_FLG; 
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000002 
0000006 
000010 
000062 


037010" 
000004 


0000006 
44 


002734 
000020 
000022 
000022 
000022 


DECLARATIONS 


000022 


« SBTTL 
canmateth’ yg 


2$: MOV 


3$: CLR 


14. 


E 
21-Apr-1981 08:40 
81 08:1 


21-Apr-19 
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IN.BLAST.TBL ROUTINE DECLARATIONS 


R1,$SAVE5 
#3 
#54, (SP) 


PC,BL$GT2 
RO,10(SP) 
#62, (SP) 
SP, (S P) 
ARR. SEL.POS,-(SP) 
#4,-(SP) 
-(§P) 
PC ,BL$GT2 
RO,44 (SP) 
42(SP) 


48$ 

16(SP) ,=(SP) 
PC,BIT.CLR.OLD.NEW 
20(SP) ,-(SP) 
PC,S.BLAST.TBL 
(SP) + 

RO 
2$ 


47$ 
20(SP) ,22(SP) 
22(SP) 


22(SP) ,-(SP) 
#177770, (SP) 
#1,-(SP 

(SP), Sp) 
PC ,BLSPU2 
30(SP) ,RO 


50(SP) 


; ARRSBNK.SEL,* 


; ARRSBNK.SEL,* 


* ,BNK .NUM 
ARR$BNK .SEL,* 


* ,ARR.NUM 
SEL .BNK 


BNK .NUM, * 
BNK .NUM, * 


BNK .NUM, * 


; BNK.NUM,* 


BNK .NUM, * 
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SE0°0173 


4171 


4220 
4221 


4222 


4225 


4225 
4227 
4229 


4232 


4244 
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005066 
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000052 


026770' 
000001 
sane 
000046 
006626" 


000001 


0000006 
000010 


000044 
000177 
036770" 
026770" 
000001 
0000006 
000006 
000052 
036770" 
006626" 
000001 


0000006 
000010 


4$: 


5$: 
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52(SP) 
R2 


R4,-(SP) 


#BLAST.TBL, (SPY 


R5,-(SP) 
Ai ,-(SP) 
=(SP) 

PC ,BL$GT2 
#6,SP 


R4, (SP) 
MERROR .MAP, (SP) 


PC ,BL$GT2 
#10,SP 
RO 


44 (SP) 
R2 
R2,4177 
4$ 


R2,R4 
a oe 


° 


R 
#BLAST.TBL RS 
R4,-(SP) 
R5,-(SP) 
#1,-(SP) 
-(SP) 

PC ,BL$GT2 
#6,SP 


RO 

52(SP) 
R2,R4 

COL .BASE ,R4 
R3,R4 


RS 
MERROR .MAP ,R4 


-(§p) 
PC ,BL$GT2 
#10,SP 


RO 
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COL .128.255.0FF 
ROW.NUM 


; ROW.NUM,* 


NIB.NUM,* 


; ROW.0.127.0FF 


NIB.NUM, * 


ROW.0.127.0FF 


; ROW.NUM 


ROW. NUM, * 


COL .NUM 
COL .NUM, * 


NIB.NUM,* 


COL.0.127.0FF 
COL .NUM, * 


NIB.NUM, * 
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ROUTINE 
000050 
000177 
037014" 
000030 


000060 


026770" 
000200 
000001 
0000006 
000006 
000050 
000062 
006626" 


000001 


0000006 
000010 


000200 
036770' 


026770" 


000001 
6000006 


DECLARATIONS 
000177 
000060 

6$: 
000377 

7$: 
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21-Apr=198 


50 (SP) 

R2 

re 

* haath’ A 
+ ae 


RG »R2 
#BLAST.TBL,R2 
#200,60(SP) 


PC, BLSGT2 
p 


RO 

50(SP) 

R3,R4 

62(SP) ,R4 

R4 

MERROR .MAP ,R4 


yt. BLSGT2 
#10 


R 

46(SP) 
60(SP) 
60(SP) ,4377 
6$ 

#200,R2 
R2,R4 

COL .BASE ,R4 
R3,R4 


R4 
#BLAST.TBL,R4 
R4,-(SP) 
R5,-(SP) 

#1. =(SP) 


= (SP) 
PC ,BLSGT2 
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; COL.0.127.0FF 
COL .NUM 


; COL.NUM,* 


; BNK.NUM,* 


ROW.NUM, * 


* ,ROW.NUM 
NIB.NUM,* 


; ROW.128.255.0FF 


ROW.NUM, * 


NIB.NUM,* 


NIB.NUM,* 


ge 142 


sea 90175 


4262 
4253 


4266 
4273 


4270 
42753 


4275 
4277 


4279 
4270 


4283 
4286 
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015552 0667 
015556 060304 
015560 


015724 

015726 010546 
015730 016646 
015734 016646 
015740 012746 
015744 012746 
015750 010600 
015752 104414 
015754 016616 
015760 062716 
015764 016646 


ROUTINE DECLARATIONS 
000006 
000054 
036770" 


006626" 
000001 


0000006 
000010 


000034 000016 


000054 
000016 


H 14 
21-Apr-1981 08:40:22 
21-Apr-1981 08:19:06 


#6,SP 

RO 

54 (SP) 
R2,R4 

St aii 


e 


RS 
MERROR.MAP ,R4 
R4, (SP) 
R5,-(SP) 
#1,-(SP) 


-(SP) 

PC ,BL$GT2 
#10,SP 

RO 

52(SP) 

Re 

7$ 

46(SP) ,36(SP) 
50(SP) , 36(SP) 
44(SP) ,40(SP) 
52(SP) ,40(SP) 
46(SP) ,42(SP) 
52(SP) ,42(SP) 
44 (SP) ,34(SP) 


50(SP) ,34(SP) 
34(SP) ,#16 
17$ 


54 

7 
CON.C.MSG 
0 


R5,~=(SP) 

32(SP) ,=(SP) 
62(SP) ,=(SP) 
#4.B.N.PRINT,~(SP) 
#4,-(SP) 

- «RO 


1 

44(SP), (SP 
#DEGRADE . MOD. REG, (SP) 
42(SP) ,-(SP) 
#177770, (SP) 
#1,-(SP5 
(SP) ,=(SP) 
PC ,BL$PU2 
54(SP) .R1 
#16,R1 

R2 

R3,R4 

R2,R4 


TOPS=20 Bliss=16 V2(212) 
PA: <NEALE>PMSKL4.BLI.1 (46) 


COL.128.255.0FF 
COL .NUM 


* 
’ 


; NIB.NUM,* 


: COL.128.255.0FF 


; COL.NUM 

; COL.NUM,* 

: ROW.128.255.0FF ,QD.1.SUM 
é COL.0.127.O0FF,QD.1.SUM: 

: ROW.0.127.0FF ,QD.2.SUM 

: COL.128.255.0FF ,QD.2.SUM 
: ROW. 128.255.0FF ,QD.3.SUM 
: COL.128.255.U0FF ,QD.3.SUM 
: ROW.0.127.0FF ,QD.0.SUM 

: COL.0.127.0FF ,QD.0.SUM 

; QD.0.SUM,* 

; NIB.NUM,* 

3 ~NUM,* 

; ARR.NUM,* 

3; SP,* 

; BNK.NUM,* 


QD.0.SUM,OVER.FLOW 
* OVER. FLOW 
ROW .NUM 


ROwW.NUM, * 


ge 143 


sea 5176 


4288 
4290 


4292 
4283 
4296 
4297 
4298 
4301 

4305 
4306 


4307 


4308 


4309 


4311 
4313 


BSKEL4 
REV A PATCH 00 


016026 


io) oo oO 
at and pr 
oS 
FS 


016240 


ROUTINE DECLARATIONS 


026770° 
000001 


0000006 
000010 


000001 
0600006 
000076 


000010 
000010 
000177 


036770" 
026770' 
000001 


0000006 
000010 


036770' 


026770" 


000001 
0000006 


I 14 
21-Apr-19 
21-Apr-19 


@o0o 
_— 


R4 
#BLAST.TBL,R4 
R4,-(SP) 


PC .BL$GT2 
#10,5P 


-(SP 

PC ,BL$PU2 
R1 

70(SP) 

R 


R2,R4 
lie 


PC BL SGT2 
#10,SP 


RO 

15$ 

R2,R4 

COL «BASE ,R4 
3,R4 


4 
#BLAST.TBL RS 
R4,-(SP) 


PC ,BL$PU2 
R1 


TOPS=20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.17 (46) 


; NIB.NUM,* 


; NIB.NUM,* 


; OVER.FLOW 
; QD.2.SUM 
; OVER.FLOW 


; ROW.NUM 
; ROW.NUM,* 


; OVER.FLOW 


; COL.NUM 
: COL.NUM,* 


; NIB.NUM,* 


; COL.NUM,* 


; NIB.NUM,* 


; OVER.FLOW 


ge 144 


sea 90177 


4316 


4333 


4344 


BSKELS 


L 
| REV A PATCH 00 


| 016242 


ROUTINE DECLARATIONS 
000066 


000010 
000010 
000177 


000020 
037014" 000177 


001334 
000036 000016 


026770" 
000001 


0000006 
000010 


000001 


19$: 


J 14 
21-Apr-198 
21-Apr-198 


DEC 66 (SP) 
R1 


TST 

BNE 14$ 

ADD #10,SP 

BR 16$ 

ADD #10,SP 

INC R 

CMP R2,4177 
BLE 13§ 

ADD 929.5 

CMP BNK. RUM. SEC,#177 
BGT 18$ 

JMP 45% 

CMP 36(SP) #16 
BLE 27$ 

TRAP 554 

.wORD 7 

"WORD CON.C.MSG 
“WORD O 

MOV 


R5,-(SP) 
MOV 32(SP) ,=(SP) 
MOV 62(SP) ,=(SP) 


MOV #A.B.N.PRINT,=(SP) 
MOV #4 ,-(SP) 

MOV SP,RO 

TRAP 14 


MOV 44(SP), (SP) 

ADD #DEGRADE . MOD REG, (SP) 

MOV 42(SP),-(SP) 

BIC #177770, (SP) 

MOV #1,-(SP) 

MOV (SP) ,=(SP) 

JSR PC .BLSPU2 

MOV 56(SP) ,R1 

SUB #16,R1 

MOV #200,R2 
R3,R4 

ADD Re, RG 


ADD WBLAST. TBL ,R4 
MOV R4,-(SP) 


P) 
JSR PC ,BL$GT2 
ADD #10,SP 


21$ 
MOV R4,-(SP) 
MOV R5,-(SP) 
MOV #1,-(SP) 
CLR -(SP) 


TOPS=20 Bliss=16 V2(212) 
PA:<NEALE>PMSKI.4.BLI.1 (46) 


; QD.1.SUM 


; OVER.FLOW 


COL .NUM 


; COL.NUM,* 


QD.1.SUM,* 


BNK .NUM, * 


; QD.1. ar —" FLOW 


; * LOVER. F 


* “ROW.NUM 
ROW.NUM, * 


NIB.NUM, * 


NIB.NUM,* 


Page 145 
SEQ 0178 


4335 
4337 


4332 
4328 


4305 
4345 


4349 
4352 


4353 


4354 


4355 


4357 
4359 


| BSKELS 
REV A PATCH 00 


016502 


016720 





ROUTINE DECLARATIONS 
0000006 
000072 


000010 
000010 
000377 


036770" 
026770" 
000001 
0000006 
000010 
036770' 


026770° 


000001 
0000006 


000010 
000010 
000177 


000020 
000040 000016 


20$: 
21$: 


22$: 


238: 


24$: 
253: 


263: 
27$: 


K 14 
21-Apr-1981 08:40:22 
21-Apr-1981 08:19:06 


Teta 
72(SP) 
R1 


R2,R4 

COL .BASE ,R4 
R3,R4 

RS 

+ pte 1 te 


-(SP) 

PC BL$GT2 
#10,SP 

RO 

25$ 

R2,R4 

COL .BASE,R4 
ar 4 
#BLAST.TBL,R4 
R4,-(SP) 
R5,-(SP) 
#1,-(SP) 
-(SP) 
PC,BL$PU2 
R1 

24$ 

#10,SP 

26$ 

#10,SP 

R2 

R2,4177 
23$ 

#20,SP 
40(SP) ,416 
36$ 

54 

7 
 eetatina 


TOPS=20 Bliss-16 V2(212) 
PA: <NEALE>PMSKL4.BLI.1 


OVER. FLOW 
QD.3.SUM 
OVER.FLOW 


ROW. NUM 
ROW.NUM, * 


OVER. FLOW 


COL .NUM 
COL .NUM,* 


; NIB.NUM,* 


COL .NUM,* 


NIB.NUM,* 


OVER.FLOW 


; COL.NUM 


COL .NUM,* 


QD.2.SUM,* 


Page 146 
SEQ 0179 


4363 
4364 
4366 


4361 
4357 
4370 


4374 
4376 


4379 


438 
438 


4378 
4374 


4351 
4390 


4393 


| 016722 


BSKEL4 
REV A PATCH 00 


010546 
016646 


010546 


ROUTINE DECLARATIONS 


000032 


000062 
002172" 
. 900004 


000044 
037022" 


0000006 
000060 
000016 
026770" 
000001 


0000006 
000010 


000001 
0000006 


000010 
000010 
000177 


000200 
036770' 


026770" 


283: 


298: 
30$: 


31$: 


32$: 


L 14 
21-Apr-1981 0 
21-Apr-1981 0 


RS,-(SP) 

32(SP) ,=(SP) 
62(SP) .=(SP) 
#A.B.N.PRINT,=(SP) 
#4,=(SP) 

SP.RO 

14 

44 (SP), (SP) 
#DEGRADE .MOD.REG, (SP) 
42\SP),=(SP) 
#177770, (SP) 
#1,-<SP) 

(SP) ,=(SP) 

PC ,BL$PU2 

60(SP) ,R1 

#16,R1 

R2 


R3,R4 
R2,R4 


R4 
ge HN 


-(SP 
PC ,BL$GT2 
#10, 
RO 

30$ 

R4,-(SP) 
R5,~-(SP) 

Hi ,~-(SP) 
-(SP) 

PC ,BL$PU2 

R1 

29$ 

#10,SP 

31$ 

#10,SP 

R2 

R2,4177 

28$ 

R1 

35$ 

#200,R2 

R2,R4 

COL .BASE ,R4 
ays RS 
#BLAST.TBL.R4 


R4,-(SP) 
R5,-(SP) 


8:40:22 
8:19:06 


TOPS=20 Bliss=-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (46) 


; NIB.NUM,* 
NUM , * 


BNK. . 
; ARR.NUM,* 


SP,* 


BNK .NUM, * 


QD.2.SUM,OVER.FLOW 
; *,OVER.FLOW 


ROW. NUM 
ROW.NUM, * 


NIB.NUM,* 


NIB.NUM,* 


OVER.FLOW 


ROW.NUM 
ROW.NUM, * 


OVER.FLOW 


*,COL .NUM 
COL .NUM, * 


NIB.NUM,* 


Page 147 
SEQ 0180 


4394 


4395 


4396 


4398 
4400 


4403 


4404 
4406 


440 
439 
4410 


4414 
4416 


BSKEL4 
REV A PATCH 00 
017152 





012746 
005046 


ROUTINE DECLARATIONS 
000001 

0000006 

000010 

036770" 

026770" 

000001 

0000006 

000072 


000010 


000010 33$: 
34$: 


000377 


000020 358: 
000042 000016 368: 


37$: 


M 14 
21-Apr-1981 08:40:22 
21-Apr-1981 08:19:06 


#1,-(SP) 
-(§P) 

PC BL$GT2 
#10,SP 

RO 

34$ 

R2,R4 

COL .BASE ,R4 
R3,R4 


R4 
ate a 


-(SP) 
PC ,BL$PU2 
72(SP) 


#20,SP 
42(SP) ,#16 
45$ 

54 

7 
CON.C.MSG 
0 


R5,~(SP) 

32 (SP) ,-(SP) 
62(SP) ,-(SP) 
#A.B.N.PRINT,~(SP) 
a 


44(SP), (SP) 
#DEGRADE .MOD.REG, (SP) 
42(SP) ,-(SP) 
#177770, (SP) 
#1,-(SP) 
(SP) , = (SP) 
PC ,BL$PU2 
62(SP) ,R1 
#16,R1 
#200,R2 
R3,R4 


TOPS=20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 


; COL.NUM,* 


NIB.NUM,* 


QD.3.SUM 
OVER.FLOW 


COL .NUM 
COL .NUM,* 


QD.3.SUM,* 


; BNK.NUM,* 


QD.3.SUM,OVER.FLOW 
* ,OVER.FLOW 
* ,ROW.NUM 


ROW.NUM, * 


Pa 148 
sE0°0181 


4419 


4436 


4437 


4439 
4441 


017410 


017626 


BSKELS 
REV A PATCH 00 


ROUTINE DECLARATIONS 


026770" 
000001 
0000006 
000010 
000001 


0000006 


000010 
000010 
000377 


000200 
036770° 
026770" 
000001 
0000006 
000010 
036770" 
026770° 


000001 
0000006 


000010 


38$: ADD 
39$: INC 


40$: TST 


41$: MOV 


N 14 
31 -Apr=1981 08:40:22 
21-Apr-1981 08:19:06 


A#BLAST.TBL.R4 


R4,-(SP) 


PC ,BL$PU2 
R1 

38$ 

40$ 
#10,SP 
Re 
R2,4377 
37$ 

R1 

44$ 
gag 


R2,R4 
COL .BASE ,R4 
R3,R4 


R4 
gate fF RS 


PC, BL scr2 
#10 


R 
43$ 


° 


ABLAST.TBL,R4 
P) 


at BL SPU2 


42% 
#10,SP 
44% 


R2,R4 
COL .BASE ,R4 
R3,R4 


TOPS=20 Bliss=16 V2(212) Page 149 
PA:<NEALE>PMSKL4.BLI.1 (46) SEQ 0182 

; NIB.NUM,* 

. 4444 
; NIB.NUM,* 

; OVER.FLOW 4445 
: 4447 
: : 4463 
3: ROW.NUM 4439 
; ROW.NUM,* 

; OVER.FLOW 4451 
: *,COL.NUM 4455 
; COL.NUM,* 4457 
; NIB.NUM,* 

: COL.NUM,* 4460 
; NIB.NUM,* 

: OVER.FLOW 4461 
3 4463 


| 
| BSKELS 

REV A PATCH 00 
| 


017630 062706 
017634 005202 


017732 000207 


; Routine Size: 
; Maximum stack 


ooo°0 
= 
N 


ROUTINE DECLARATIONS 
000070 
000377 
000020 
000011 
175152 
0 


000042 090066 


815 words. ; 
depth per invocation: 


49%: 


43 words 


B 15 
21-Apr-1981 08:40:22 
21-Apr-1981 08:19:06 


30.SP), (SP) 
PC,OR.OLD.NEW.PD 
#10,SP 


42(SP) 
42(SP) ,66(SP) 
49$ 


1$ 
#50,SP 
PC 


TOPS=20 Bliss-16 v2(212) 
PA:<NEALE>PMSKL4.BLI.1 (46) 


e 


; COL.NUM 


COL .NUM,* 


NIB.NUM 
NIB.NUM, * 


BNK .NUM, * 
BNK . NUM 


SEL .BNK 
SEL .BNK, TSTED.BNK 


P 150 
SEO 0183 


4459 
4455 


4437 
42°4 





ROUTINE DECLARATIONS 
routine IN_ERROR_MAP (TEMP_ARRSBNK_SEL, BAD_CHIP) 


C 15 
21-Apr-1981 08:40 


22 TOPS=20 Bliss-16 V2(212) 
21-Apr-1981 08:19:06 


PA:<NEALE>PMSKL4.BLI.1 (47) 


: novalue = 
begin 


FUNCTIONAL DESCRIPTION: INTERIGATE THE ERROR MAP 
wae EXICUTES IN THE FOLLOWING 


TEP 

1. IT FIRST SEARCHES THE ERROR MAP FOR 
ALL BAD ROWS ie. OCCURANCES OF BAD 
ROWS > 10 TIMES. 


2. IT THEN SEARCHES THE COLUMN COUNT 
TABLE FOR COLUMN COUNTS > 10> 


3. IT THEN XFERS TO THE REMAINDER TABLE 
ANY REMAINING CELL FAILURES. 


4. IT THEN INTERIGATES THE REMAINDER TABLE 
FOR THESE REMAINING CELL FAILURES 
AND SELECTS THE BEST ONE FOR BLASTING. 


FORMAL PARAMETERS: 
TEMP_ARRSBNK_SEL: 

STORES THE SELECTED ARRAYS ARRAY AND BANK 

SELECT NUMBERS. 


POINTS TO THE FAILING CHIP PERSENTLY 
BEING PM'ED. 


BAD_CHIP 


f tR_SEL 


1_ TMP BLST.TBL VD: 
ACL _BAD = 3_ERROR_MAP (.BAD_CHIP); 


if .ALL_BAD leq 9 


. TEMP_ARR$BNK_SEL<.ARR_SEL_POS, ARRSSEL_SIZE>; 
. TEMP_ARR$BNK_SEL<.BNK_SEL_POS, BNK$SEL _ ~SIZE>; 


'STORES ARRAY SELECT NUMBER 
'STORES BANK SEL NUMBER 
'RECORDS TOTAL ALL BAD ROWS AND COLUMNS FOUND BAD 


'LOAD THE ARRAY SEL NUMBER 
'LOAD THE BNK SEL NUMBER 
'INIT~ THE TEMPORARY BLAST TABLE 

iSEARCH ERROR MAP FOR ALL BAD ROWS 


'TS THE ALL BAD COUNT <= 9 


then 
begin 
ALL_BAD = S_COL_CNT_TBL (.BAD_CHIP, .ALL_BAD); !SEARCH COLUMN COUNT TABLE FOR ALL BAD COLS 
if .ALL_BAD leq 9 '1S THE ALL BAD COUNT <= 9 
then 
begin 
ted = §_REM_TBL (.BAD_CHIP, .ALL_BAD); !FIND THE REMAINING BAD ROWS/COLS 
end; 


Page 151 
SEQ 0184 


| D 15 


' | BSKELS 21-Apr-1981 08:40:22 TOPS=20 Bliss=16 V2(212) Page 152 
» REV A PATCH’0O0 ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 PA: <NEALE>PMSKL4.BLI.1 (47) SEQ 0185 | 
Gi s x 484 end; 
| : S238 JE -ALL_BAD leq 9 ‘WERE THERE <= 9 ALL BAD ROWS/COLS FOUND 
i 3 j 

; 4538 
| ; ches x beonP _BLST_TBL (.TEMP_ARRSBNK_SEL, .ALL_BAD); !XFER TEMP BLAST TABLE TO BLAST TABLE 
Py end 
| : 4541 else . 
EMR Fe oe 
; 4544 1f not .FLG_REG CF_ALL_BAD_CHIPJ 11S THIS THE FIRST ALL BAD CHIP IN THIS BANK 
; 4545 ~— 
: 4546 she, 
: 4547 ERRSF (ERR_5, CON_A_MSG, 0); ‘REPORT A CONDITION A 
: 4548 PRINTB “ 25 C_PRINT, .ARR_SEL, .BNK_NUM, .BAD_CHIP); 'REPORT WHERE 
: 4549 FLG_REG CF_ALC_BAD CHIP) SET FLG; ise! THE ALL BAD CHIP FLAG 
; 4550 DEGRADE _MOD_REG C.BNK_NUM] = SET_ 
‘ 4551 end 
; 4552 =, 
; 4553 3 hy 
2 4554 ERRSF (ERR_6, CON_B_MSG, 0); 'REPORT A CONDITION B 
: 4555 PRINTB (REP_PRINT, .ARR_ SEL); 'REPORT WHERE 
; 4556 FLG_REG CF_ABORT _ARRAY ]~ = SET _FLG; !SET THE ABORT ARRAY FLAG 
: 4557 end; 
Z 4558 
3 4559 end; 
; 4560 
: 4561 end; 
.SBTTL IN.ERROR.MAP ROUTINE DECLARATIONS 
017734 004167 000000G IN. ERROR.MAP: 
JSR R1,$SAVE3 3 4482 
017740 012746 000016 MOV #16,-(SP) ; 4518 
060616 ADD SP, (SP) > TEMP. ARRSBNK.SE,* 
016746 037010" MOV ARR. SEL. POS. -(SP) 
012746 000004 MOV a4, 5(sP) 
005046 CLR -(§P) 
004767 0000006 JSR PC ,BL$GT2 
010003 MOV RO,R3 : *,ARR.SEL 
012716 000024 MOV #24, (SP) ; 4519 
060616 ADD SP, (SP) : TEMP. ARRSBNK.SE,* 
016746 037012" MOV BNK.SEL.POS,-(SP) 
012746 000002 MOV #2,-(SP) 
005046 CLR -(SP) 
004767 000000G JSR PC,BLS$GT2 
010001 MOV RO,R1 ; *,BNK.NUM 
004767 164404 JSR PC,1.7MP.BLST.TBL : 4520 
6602 000030 MOV 30(SP) ,R2 ; BAD.CHIP,* 4521 
010216 MOV R2, (SP) 
004767 171740 JSR PC,5.ERROR.MAP 


020027 000011 (MP séROL# AT : ALL.BAD,* 4524 





-—__—__- -—_ -—- ee 


| E 15 | 


| BSKELG 21-Apr=1981 08:40:22  10PS-20 Bliss-16 v2(212) Page 153 | 
REV A PATCH 00 ROUTINE DECLARATIONS 31-Apr-1981 08:19:06  PA:<NEALE>PMSKL4.BLi.1 (47) SEQ 0186 | 
020036 003026 BGT ~—s«$ | 
| 020040 010246 MOV R2.=(SP) : 4526 | 
020042 010046 Mov —-RO, = (SP) ; ALL.BAD,* | 
020044 004767 171550 JSR PCS. COL. CNT. TAL | 
$sb0s0 G26087 000071 (MP «RO, #1 ; ALL.BAD,* 4528: 
020054 BGT ~—s«*1$ 


020070 022626 1$: CMP (SP)+, (SP) + 3 4525 
020072 ro gsied 000011 CMP RO,A11 ; ALL.BAD,* 4536 


2$ 
020100 016646 000032 MOV 32(SP) ,=(SP) ; TEMP.ARRSBNK.SE,* 4539 
020104 010046 MOV RO,-(SP) ; ALL.BAD,* 
020106 004767 166606 JSR ee ae 


000 5 : 
020114 032767 000020 037020' 2s: 3! tiene ; 4544 
020124 104454 TRAP 54 : 4547 
000005 é 5 
020130 000444' -WORD -CON.A.MSG 
000000 ‘ 0 


020134 010246 MOV R2,-(SP) : 4548 
020136 010146 MOV R1,-(SP) ; BNK.NUM,* 

020140 010346 MOV R3,-(SP) ; ARR.SEL,* 

020142 012746 002120" MOV #A.B.C.PRINT,-(SP) 

020146 012746 000004 MOV #4 ,-(SP) 

020152 010600 MOV SP RO 3 SP,* 


14 
020156 152767 000020 037020' BISB #20,FLG.REG ; 4549 
020164 Bon soo MOV 1K ; BNK.NUM,* 4550 


020170 006200 ASR RO 


RO 
020174 062700 037022" ADD ADEGRADE .MOD.REG,RO 
0200 910016 MOV RO, (SP) 


MO R1.-(SP) 
020204 042716 177770 BIC #177770, (SP) 
020210 012746 000001 MOV #1,-(SP) 
020214 011646 MOV (SP) ,-(SP) 
020216 004767 0000006 JSR PC BL$PU2 
020222 062706 000012 ADD wie, SP : 4546 


0004 
104454 3$: TRAP 54 3 4554 
000006 , 


; BNK.NUM,* 


000000 ° 
020240 010346 MOV R3,-(SP) ; ARR.SEL,* 4555 
020242 012746 002246' MOV #REP.PRINT,=(SP) 
020246 012746 000002 MOV #2,-(SP) 


003005 

020056 010246 MOV R2,-(SP) 3 4531 

020060 010046 MOV RO,-(SP) ; ALL.BAD,* 

020062 004767 171142 JSR PC,S.REM.TBL 

020066 022626 CMP (S?)+, (SP) + F 4530, 

020252 010600 MOV SP,RO ; #.* 








F 15 
21-Apr-19 


; Routine Size: 112 words. : 
: Maximum stack depth per invocation: 19 words 


i 

| BSKELS 
REV A PATCH 00 ROUTINE DECLARATIONS 21-Apr-19 
020254 104414 TRAP 14 

| 020256 152767 000100 637020' BISB  #100,FLG.REG 

| 020264 005726 4$: TST (SP) + 

| 020266 062706 000022 5$: ADD #22,SP 

| 020272 000207 RTS PC 

| 





ao oO 


TOPS=20 Bliss-16 V2(212) Page 154 
PA:<NEALE>PMSKL4.BLI.1 (47) SEQ 0187 

j 4556 
: 4542 
é 4483 
3 4482 


BSKEL4 
REV A PATCH 00 ROUTINE DECLARATIONS 


G 15 
21-Apr-1981 08:40:22 TOPS=20 Bliss-16 V2(212) Page 155 


21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLi.1 (48) SEQ 0188 
: 4562 routine FB_DATA_CHIPS (TEMP_ARR$BNK_SEL) : novalue = 
; 4563 begin 
; 4564 
| 3 4565 i+ 
: $266 FUNCTIONAL DESCRIPTION: FIND THE BAD DATA CHIPS 
i 3 4568 | THIS ROUTINE WILL SEARCH THE SELECTED BANKS 
i 3 4569 | VIA MASS BUS TRANSFERS LOOKING FOR ADDITIONAL 
| 4370 i FAILING CHIPS. 
: 4572 ! IF A BAD CHIP IS DETECTED THEN THE ML=-11 BIT 
: 4573! FROM WHICH THE FAILURE CAME FROM IS CALCULATED 
; 4574 |! AND THE FAILING CHIP NUMBER AND PATTERN IS 
| : 4975 STORED INTO THE BAD CHIP TABLE. 
: 4577 | FORMAL PARAMETERS: 
; 4578 |! TEMP_ARR$SBNK 
: 4579 | STORES. THE SELECTED ARRAYS ARRAY AND 
; 4580 ! BANK SELECT NUMBER 
: 4581 ‘+ 
; 4582 
: 4583 local 
4584 BITS_TSTED, ‘COUNTS NO. BITS TESTED IN READ BUFFER 
: 4585 OFFSET, 'RANDOM DATA OFFSET 
4586 RAND_ INDEX iSTARTS SECTOR TRANSFER AT RANDOM WRITE BUFFER WORDS 
; 4587 BAD BITS : bitvector [16] ‘LOADED WITH FAILING READ BUFFER WORD 
; r= FAIC_CHIP 'RECORDS THE FAILING ML-11 DATA CHIP 
: 4590 SEED1 = ZEROES INIT RANDOM DATA SEED1 
: 4591 SEED2 = %0'1233': isNIT RANDOM DATA SEED2 
4592 SEED3 = %0'7622'; ‘INIT RANDOM DATA SEED3 
; rae, OFFSET = ZEROES; iCLEAR THE RANDOM DATA OFFSET FOR 1°S AND O'S DATA 
; 4395 incr PAT SEL from 0 to ONE + .RAND_PASS do !LOOP THRU ALL PATTERNS 
; egin 
: 4392 RAND_INDEX = ZEROES; 'RESET RANDOM INDEX TO ZERO 
3 4599 selectone .PAT_SEL of 'SELECT A PATTERN 
: 4600 set 
: 4601 
; 4602 {OJ : 
: “60° L_1_0_DATA (.TEMP_ARR$BNK_SEL, ZEROES); !LOAD ZEROES DATA 
: 4605 3: 
$ rr} L_1_O_DATA (.TEMP_ARR$BNK_SEL, ONES); 'LOAD ONES DATA 
: 4608 Cotherwise] : 
; 4609 wh 
; 4610 ANDOM_DATA (.TEMP_ARRSBNK_SEL) ‘LOAD RANDOM DATA 
: 4611 OFFSET = 2; ‘ENABLE THE RANDOM DATA OFFSET 
: 4612 end; 
; 4613 tes; 
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ee ee ee ee ee ee ee ee ee ee ee eT) 


H 15 
21-Apr-1981 08:40:22 TOPS=20 Bliss-16 V2(212) 
ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI.1 (48) 


pean CNT from 0 to .BNK_NUM_SEC do !WRITE CHECK ALL SECTORS IN THIS BANK 
+ DLA 


BREAK 
WRT “CHK. TRANSFER (SIZE = =256, DST = (.TEMP_ARRSBNK_SEL + .SEC_CNT), 
“SRC = WRT_BUF [C.RAND_ INDEX, 


WRDJ)? 
if -ML_ADDR CMLEE, crcJ 'WAS THERE A CRC BIT ERROR 
tnen 
+ Ne CHIP = .ML_ADDR CMLEE, CHAN]; 'READ THE FAILING CRC BIT NUMBER 
L aCHIP, TBL (.FATL_CHIP, -PAT SEL); 'STARE AWAY THE FAILING 8IT AND PATTERN 
en 
else 
begin 
if -ML_ADDR CMLEE, UNC] 'WAS THERE A UNCORRECTABLE ERROR 
then 
rer REG CF_UNC_ERR_FLG] = SET_FLG; !SET THE UNC ERROR FLAG FOR FUTURE REF 
end 
end; 
if -ML_ADDR CMLCS2, WCE] 'WAS THERE A WRITE CHECK ERROR 
then 
begin 
CLR_MBUS; . 'CLEAR THE MASS BUS OF THE ERROR 
BITS_TSTED = ZEROES 'CLEAR THE BITS TESTED COUNT 
RD_TRANSFER (SIZE = a <o04, DST = RD_BUF, SRC = .TEMP_ARRS$BNK_SEL + .SEC_CNT); 
nee Ot Oe from 0 to 255 do ‘FIND THE FAILING READ BUFFER WORD 
egin 
if .WRT_BUF [(.RAND_INDEX + .BUF_INDEX), WRDJ neq .RD_BUF [.BUF_INDEXJ 
then 
be 


BA "BITS = .WRT_BUF C(.RAND_INDEX + .BUF_INDEX), WRDJ xor .RD_BUF C.BUF _INDEX]; 


incr BIT_INDEX from 0 to 15 do !FIND THE FAILING BIT(S) 


ae -BAD_BITS C.BIT_INDEX] eql ONE 'TS THIS A BAD BIT 
then 


begin 
FAYL. CHIP = ( -BITS TSTED + .BIT_INDEX) mod 36; 
‘CALCULATE THE FAILING ML-11 BIIT 


] 
L_CHIP_TBL (FAIL. CHIP, .PAT_SEL); 'STORE AWAY THE BIT AND PATTERN 


end; 


end; 
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020274 


020502 


004167 


end; 


BITS_TSTED = .BITS_TSTED + 16; 


end; 


RAND_INDEX = .RAND_INDEX + 


end; 


end; 


end; 


0000006 

034 
0000006 
001233 000000G 
007622 0000006 
000006 


0000 

164164 

000002 000010 
037014" 000016 
000002 

000610 

177400 

037024" 

000056 


000004 
037026" 


«SBTTL 
FB.DATA. CHIPS: 
J 
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FB.DATA.CHIPS ROUTINE DECLARATIONS 


R1,$SAVE5 
#34,SP 

SEED1 
#1233,SEED2 
#7622,SEED3 
6(SP) 

RAND .PASS,R5 
R5,12(SP) 
12(SP) 


52(SP) ,-(SP) 
-(SP) 


3$ 
it #1 


25(sP), -(SP) 
eet cr P) 

.1.0.DATA 
(Sb) 4 


5$ 

52(SP) ,-(SP) 

a ol. RANDOM. DATA 
Trek NUM. SEC, 16(SP) 


R3, -(SP) 


TOPS=20 Bl ‘ss=-16 Vv2(212) 
PA: <NEALE>PMSKL4.BLI.1 (48) 


'ADD 16 BIT 70 THE BIT TESTED COUNT 


.OFFSET; !BUMP THE RANDOM INDEX IF RANDOM DATA 


OFFSET 


PAT.SEL 


RAND. INDEX 
PAT.SEL 


TEMP..ARRSBNK . SE, * 


PAT.SEL,* 
TEMP. ARRS$BNK .SE,* 


TEMP..ARRSBNK .SE ,* 
* ,OF FSET 
SEC.CNT 


; TEMP.ARR$BNK.SE,* 


SEC.CNT,* 


Pa 157 
SE0°0190 


BSKELS 
REV A PATCH 00 


oO 
a8) 
oO 
vw 
—_ 
oO 


ROUT INE 
000072 
001232" 
037030" 
161704 
036772" 
000042 
020000 
036772" 
000042 
000040 


177700 
000012 


164214 
036772" 
000042 
000002 
036772" 
000010 
040000 


036772" 


036772" 
000010 


000020 
177400 
037024" 


DECLARATIONS 


000042 
000042 


000040 


000936 
037020" 


000034 
000034 


009032 


000030 


re 


8$: 
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12(SP) ,R4 


R4 

AWRT BUF ,R4 

R4,SRC 

R4,-(SP) 

PC ,WRT.CHK. TRANSFE 
ML.ADDR,R5 

42(R5) ,42(SP) 
gerewws »42(SP) 


ML.ADDR,R5S 
42(R5) ,40(SP) 
40(SP),R 


#177700,R5 
R5,12(SP) 
R5,-(SP) 
R1,-(SP) 
PC,L.CHIP.TBL 
(SP) +, (SP) + 
8$ 


ML.A R5 
ADiRS) sb (sp) 
8$ 


#2,FLG.REG 
ML.ADDR,R5S 
10(R5) , 34(SP) 
#40000, 34(SP) 
13$ 


ML .ADDR,R5 
10(R5) , 32 (SP) 
$2(SP) RG 
#40,R 

ML. -ADDR RS 
RG O(R5) 


ML. 

MbtaS) Ree SP) 
30(SP) .R4 
ML .DUT,RS 
#177770,R5 
#7 RG 

R5_RG 
ML.ADDR,R 

R4, “10(RS) 
20(SP 

soc0. -(SP) 
(SP) , SIZE 


TOPS=20 Bliss=16 V2¢212) 
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; RAND. INDEX,* 


* *,ML.REG 
; *,ML.REG 


*,ML.REG 
ML .REG,* 


*,FAIL.CHIP 
FAIL.CHIP,* 
PAT.SEL,* 


Me Be Se Be 


*,ML.REG 


BeBe Bee 
» 
. 
= 
= 
D 
mm 
a 


+ *,ML.REG 
+ ML.REG,MLREG 
+ *,MLREG 


o 


; MLREG,* 
*,ML.REG 
; ML.REG,MLREG 


; *,MLREG 
; *,MLREG 


; MLREG,* 
; BITS.TSTED 


Pa 158 
SE0°0191 


4620 
4619 
4618 
4622 


4625 
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021 012746 005626' MOV #RD.BUF ,=(SP) 
- 021012 011667 037026" MOV (SP) ,DST 
| 021016 010367 037030" MOV SRC 
| 021022 010346 MOV R3,-(SP) 
| 021024 767 162634 JSR PC RD. TRANSFER 
021030 005002 CLR R : BUF. INDEX 4646 
021032 010204 9$: MOV R2,R4 + BUF. INDEX, * 4649 
021034 04 000022 ADD 22(SP) ,R4 + RAND. INDEX, * 
021040 304 ASL R4 
021042 010205 MOV R2,R5 : BUF .INDEX,* 
021044 305 ASL R 
1046 026465 001232" 005626' CMP WRT.BUF (R4) ,RD.BUF (R5) 
021054 001463 BEQ 12$ 
021056 016403 001232" MOV WRT .BUF (R4) ,R3 : 4652 
021062 016546 005626" MOV RD. BUF (R5) ,-(SP) 
021066 040316 BIC R3, (SP) 
021070 046503 005626' BIC RD. BUF (R5) ,R3 
021074 052603 BIS (SP) +,R3 
021076 010366 000034 MOV R3, 34(SP) : *,BAD.BITS 
021102 605005 CLR R5 > BIT. INDEX 4654 
021104 010504 10$: MOV R5,.R4 + BIT. INDEX,* 4656 
021106 006204 ASR R4 
021110 006204 ASR RG 
021112 006204 ASR R4 
021114 012703 000034 MOV #34 ,R3 
921120 060603 ADD P,R3 ; BAD.BITS,* 
021122 060 ADD R3,R4 
021124 010446 MOV R4,-(SP) 
021126 010546 MOV R5,-(SP) : BIT.INDEX,* 
021130 042716 177770 BIC #177770, (SP) 
021134 012746 000001 MOV #1,-(SP) 
021140 005046 CLR -(SP) 
021142 004767 0000006 JSR PC ,BL$GT2 
021146 062706 000010 ADD #10, 
021152 005300 DEC 
021154 001017 BNE 
021156 010546 MOV R5,-(SP) : BIT. INDEX,* 4659 
021160 16 03 ADD 30(SP), (SP) + BITS. TSTED,* 
021164 012746 000044 MOV #44,-(SP) 
021170 767 0000006 JSR PC ,BLSMOD 
021174 01 24 MOV RO.24(SP) : *,FAIL.CHIP 
021200 010016 MOV RO, (SP) + FAIL.CHIP,* 4661 
021202 010146 MOV R1.=(SP) > PAT.SEL,* 
021204 767 163630 JSR PC.L.CHIP.TBL 
021210 062706 000006 ADD 6,5P : 4658 
021214 00520 11$: INC R5 > BIT. INDEX 4654 
021216 020527 000017 CMP R5,417 > BIT.INDEX,* 
021222 003730 BLE 10$ 
021224 062766 000020 000026 12$: ADD #20,26(SP) : *,BITS.TSTED 4666 
021232 005202 INC R2 + BUF . INDEX 4646 
021234 020227 000377 CMP R2,#377 * BUF .INDEX,* 
021240 003674 BLE 9$ 


po nee 


| 
| 


BSKEL4S 
REV A PATCH 00 


021242 


021322 


; Routine Size: 
; Maximum stack 


062706 
066666 


ROUTINE DECLARATIONS 
000006 

000016 000014 
000006 


000002 
000002 000016 
177154 


000012 
177034 
000034 


268 words | ; 
depth per invocation: 


13$: 


14$: 


15$: 
16$: 


17$: 


31 words 
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R1,12(SP) 
17$ 


1$ 
#34 ,SP 
PC 


TOPS=20 Bliss=-16 V2(212) 
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OF FSET ,RAND. INDEX 


SEC.CNT 
SEC.CNT,* 


PAT.SEL 
PAT.SEL,* 
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4677 routine FB_CRC_CHIPS (TEMP_ARR$BNK_SEL) : novalue = 
4678 begin 


++ 


FUNCTIONAL DESCRIPTION: FIND THe BAD CRC CHIPS 


THIS ROUTINE FINDS ALL_THE a FAILING 
CRC CHIPS FOR A SELECTED BANK 


! 

' 

' 

' 

! 

! 

: THIS ROUTINE IS ONLY CALLED IF A UNC ERROR 

4687 OCCURED DURING THE FIND BAD DATA CHIP ROUTINE. 

! 

' 

' 

' 


IF A BAD CRC CHIP IS FOUND THEN IT IS STORED 
INTO THE BAD CHIP TABLE ALONG WITH ITS FAILING 
DATA PATTERN. 


FORMAL PARAMETERS: 
TEMP_ARR$BNK_S 


4695 STORES. THE SELECTED ARRAYS ARRAY AND BANK 
4696 SELECT NUMBERS. 


: 4699 local 

: 4700 RAND_INDEX, ISTARTS SECTOR TRANSFERS AT RANDOM WRITE BUFFER WORDS 
: 4701 OFFSET, 'RANDOM DATA OFFSET 

: 4702 PD_ SAVE : bitvector [16]: 'SAVE LOCATION FOR NIBBLE PROM DATA 

; = ZERO; ‘INIT THE RANDOM DATA SEED1 

; 4706 SEED2 = %0'1233': i INIT THE RANDOM DATA SEED2 

: = %o'7622': ‘INIT THE RANDOM DATA SEED3 


4709 incr CRC_SEL from CRC_P to CRC_B do 'FIND BAD CRC BITS P, A, B 
4710 begin 


hat A not .CHIP_TBL C.CRC_SEL, FAULTJ ‘DID THIS CRC BIT FAIL DURING 'FB_DATA_CHIPS* 
then 
4714 begin 


yA a from 0 to ONE + .RAND_PASS do !LOOP THRU ALL PATTERNS 
egin 
4718 RAND. INDEX = ZERO; 'RESET THE RANDOM INDEX 


4720 selectone .PAT_SEL of ‘SELECT A PATTERN 
4721 set 


4723 [0] : 
4724 DM_1_O0_LOAD (.TEMP_ARRSBNK_SEL, ZEROES); ‘LOAD ZEROES DATA 


4726 C1]: 
4727 DM_1_0_LOAD (.TEMP_ARRSBNK_SEL, ONES); !LOAD ONES DATA 


4704 Seat" * feo 'CLEAR THE RANDOM DATA OFFSET FOR 1'S AND 0°S DATA 
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21-Apr-1 
ROUTINE DECLARATIONS 21-Apr-1 
= : 
DM RAND _ LOAD (.TEMP_ ARR$BNK SEL); 
OFFSET = 2; ' ENABLE 
end; 
tes; 


98 


981 08:40:22 TOPS=20 Bliss-16 had 
1 08:19:06 


'LOAD RANDOM DATA 
THE RANDOM DATA OFFSET 


DM_RD_TRANSFER (SIZE = 256, DST = RD_BUF, SRC = .TEMP_ARRSBNK_SEL); 


case .CRC_SEL from CRC_P to CRC_B of 
set 


'SELECT THE FAILING CRC BIT 


C36] : 'TEST CRC BIT P 


begin 


incr SEC_CNT from 0 to .BNK_NUM_ 


begin 
BREAK; 


SEC do !READ THRU ALL SECTORS 


incr WRD_CNT from 0 to 127 do 'READ THRU ALL WORDS IN SECTOR 


egin 
PD SAVE = .ML_ADDR CMLPD, PD_REGJ; 'READ OUT THE PROM DATA FOR THIS WORD 
DAT_CLK; ‘CLOCK THE DATA INTO THE DIAG REG'S 


if not .PD_SAVE CCRC_NIBSLEJ 'IS THIS A GOOD NIBBLE 


if .ML_ADDR CMLE2, B_36] neq .WRT_BUF [(.RAND_INDEX + .WRD_CNI), B1IT_12] 


-_, 


L a. TBL (.CRC_SEL, .PAT_SEL); 
'SAVE THE FAILING THIP AND PATTERN 


end; 
end; 
end; 


RAND_INDEX = .RAND_INDEX + 
end; 


end; 


OFFSET; !BUMP THE RANDOM INDEX 


[37] : ‘TEST CRC BIT A 


begin 


incr SEC_CNT from 0 to .BNK_NUM_ 


begin 
BREAK; 


SEC do !READ THRU ALL SECTORS 


ee 


incr WRD_CNT from 0 to 127 do 'READ THRU ALL WORDS IN THIS SECTOR 
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4781 begin 
4782 PD_SAVE = .ML Joe CMLPD, PD_REGJ; 'GET THIS WORDS PROM DATA 
4783 DAT_CLK; CLOCK OUT DATA INTO THE DIAG REG'S 


4785 if not .PD_SAVE CCRC_NIBBLEJ~ !JS THIS A GOOD NIBBLE 


4789 + -ML_ADDR [MLE2, B_37] neq .WRT_BUF [(.RAND_INDEX * .WRD_CNT), BIT_13] 
then 
a” 
4792 L_CHIP_TBL (.CRC_SEL, .PAT_SEL); 'SAVE THE BAD CHIP AND PATTERN 
4793 end; 
4794 
4795 end; 
4796 
4797 end; 


4799 RAND_INDEX = -RAND_INDEX * .OFFSET; 'RUMP THE RANDOM INDEX 
4800 end; 


end; 


[38] : 'TEST CRC BIT B 
begin 


a Se from 0 to .BNK_NUM_SEC do ‘READ ALL SECTORS 

egin 

4809 BREAK; - 

4811 incr WRD_CNT from 0 to 127 do 'READ ALL WORDS IN THIS SECTOR 


egin 
4813 PD_SAVE = .ML_ADDR CMLPD, PD_REGJ; !GET THE PROM DATA FOR 
4814 DAT_CLK; ‘CLOCK OUT DATA INTO DIAG REG'S 


4816 if not .PD_SAVE CCRC_NIBBLEJ 'TS THIS A GOOD NIBBLE 
4817 then 
4818 begin 


4820 if .ML_ADDR CMLE2, B_38] neq .WwRT_BUF [(.RAND_INDEX + .WRD_CNT), BIT_14] 
4821 then 


begin 
4823 U: CHIP_TBL (.CRC_SEL, .PAT_SEL); 'SAVE THE BAD CHIP AND PATTERN 
4824 end; 


4826 end; 
4828 end; 


4830 RAND_INDEX = .RAND_INDEX + OFFSET; !BUMP THE RANDOM INDEX 
4831 end; 
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| 3 4833 end 
4 4834 tes; 
1 3 4835 
3 4836 end; 
: 4837 
; 4838 end; 
; 4839 
5 4840 end; 
: 4841 
é 4842 CLR_MBUS; 'CLEAR THE SINGLE STEP DMA MODE 
3 484 end; 
.SBTTL FB.CRC.CHIPS ROUTINE DECLARATIONS 
021324 004167 000000G FB.CRC.CHIPS: 
JSR R1,$SAVE5 % 4677 
021330 162706 000042 SUB #42,SP 
021334 005.66 000002 CLR 2(SP) s OFFSET 4704 
021340 5067 000000G CLR SEED1 : 4705 
21344 0612767 001233 O0C0000G MOV #1233,SEED2 3 4706 
021352 012767 007622 000000G MOV #7622,SEED3 F 4707 
021360 012701 000044 MOV #44,R1 ; *,CRC.SEL 4709 
021364 010105 1$ MOV R1,R5 ; CRC.SEL,* 4712 
21366 50 ASL R5 
021370 005765 026626' TST CHIP. TBL(R5) 
921374 100002 BPL 2$ 
021376 000167 1052 JMP 27$ 
021402 016705 037034" 23: MOV RAND .PASS,R5 : 4716 
021406 0566 000010 MOV R5,10(SP) 
021412 005266 000010 INC 10(SP) 
021416 005002 ; CLR R2 ; PAT.SEL 
021420 000167 001016 JMP 26$ 
021424 005016 3$: CLR (SP) ; RAND. INDEX 4718 
021426 005702 TST R2 : PAT.SEL 4720 
021430 1004 BNE 4$ 
021432 016646 000060 MOV 60(SP) ,-(SP. ; TEMP. ARRSBNK.SE,* 47264 
1436 005046 CLR -(SP) 
021440 407 BR 5$ 
021442 020227 000001 4$: CMP R2,41 ; PAT.SEL.* 4720 
021446 001010 ; BNE 6 
021450 016646 000060 MOV 60(SP) ,-(SP) ; TEMP. ARRSBNK.SE,* 4727 
021454 012746 177777 MOV #-1,-~-(SP) 
021460 767 160400 5$: JSR PC,DM.1.0.LOAD 
021464 005726 TST (SP) + 
021466 000407 BR 7$ 3 4720 
021470 016646 6$: MOV 60(SP) ,-(SP) : TEMP. ARRSBNK.SE,* 4731 
021474 004767 157770 JSR PCP”. RAND.LOAD 
021500 012766 2 000004 MOV #2,4(5P) ; *, OFFSET 4732 
021506 012716 177400 7$: MOV #-400, (SP) ; 4736 
021512 011667 037024" MOV (SP) SIZE 
021516 012746 005626' MOV #RD. BUF ,-(SP) 
021522 011667 037026° MOV (SP) ,DST 


iwc Ra Gale Oe 


022014 





ROUT INE 
000064 
037030" 
157116 
000044 
021556" 


037014° 
000012 


036772" 
000046 


036772" 
000034 
000006 
001232" 
167777 


000040 
167777 


163074 


000177 
000010 
000012 
000012 


037014" 
000012 


DECLARATIONS 


000014 


000046 
000042 


000044 


000043 


000040 


000006 
000014 


000014 


8$: 


9$: 


10$: 
11$: 


12$: 


13$: 


14$: 


D 16 
21-Apr-198 
21-Apr-198 

64 (SP) ,=(SP) 
(SP) , SRC 
PC,DM.RD. TRANSFER 
R1 oR5 

Ho RS 

et PC 


8$ 
BNK .NUM.SEC,14 (SP) 
12(SP) 
13$ 
22 
R3 
ML .ADDR,R5 
46(R5) ,46(SP) 
46(SP) ,42(SP) 
ML .ADDR,R5S 
24(R5) .44 (SP) 
44(SP),R 
#20,R4 
ML .ADDR,R5 
R4,24(R5) 
—-- 


2 
ML .ADDR,R5 
34(R5) ,40(SP) 


R3 oR5 

6(SP) ,R5 

R5 

WRT .BUF (R5) ,RO 
#167777 ,RO 


(SP) +, (SP)+ 

R3 

st shed 

10(SP, .6(SP) 
P) 

SP) ,14(SP) 


TOPS=20 Bliss=16 V2(212) 
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Be Be Se Be Be Be 


. Be Be Be 


TEMP ..ARRSBNK. SE ,* 


CRC.SEL,* 


SEC. CNT 


WRD. CNT 


& 


»ML.REG 
ML .REG, PD. SAVE 


*,ML.REG 
ML .REG,MLREG 
* ,MLREG 


; MLREG,* 


*,PD. SAVE +1 


* ,.ML.REG 
WRD.CNT,* 
RAND. INDEX, * 


ML.REG,* 


CRC.SEL,* 
PAT.SEL,* 


WRD. CNT 
WRD.CNT,* 


OF FSET, RAND. INDEX 
SEC.CNT 


; SEC.CNT,* 


SEC.CNT 
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SEQ 0198 


4738 


4753 
4757 


4760 


4759 
4748 


4768 
4744 


4739 
4776 


SE 
| 


022312 
022320 


001030 


BSKELS 
REV A PATCH 00 ROUTINE 


4 
000002 
036772" 
000034 
000006 


001232" 
157777 


000032 
157777 
162656 


000177 
000010 


037014" 
000012 


| 


DECLARATIONS 


000036 
000042 


000034 


000043 


000032 


000006 
000014 


000014 


000030 
000042 


000026 


00004 3 


15$: 
16$: 


178s 


18$: 


19$: 


208: 


218: 


228: 
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22 


R3 
ML.ADDR,RS 
46(R5) , 36(SP) 
36 (SP) -42(SP) 
ML.ADDR,R 
24(R5) , 34 (SP) 
34 (SP) -R4 
#20,R4 

ML .ADDR,RS 
RG, 24(R5) 
#2.43(SP) 

17$ 


ML .ADDR,RS 
34(R5) , $2 (SP) 
R3.R5 

6(SP) RS 


R 
WRT «BUF (R5) ,RO 
#157777,R0 


(SP) +, (SP) + 
R3 

R3,4177 

16$ 

10(SP) ,6(SP) 
12(SP) 
12(SP),14(SP) 
15$ 

25$ 

BNK .NUM.SEC,14(SP) 
12(SP) 

24$ 

22 
R3 
ML .ADDR,RS 
46(R5) , 30(SP) 
30(SP) .42(SP) 
ML .ADDR,RS 
24(R5) ,26(SP) 
26(SP) .R4 
#20,R4 

ML .ADDR,R5 
R4.24(R5) 
#2.43(SP) 

23$ 
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; 4777 
; WRD.CNT 4780 
3 4782 
; *,ML.REG 

; ML.REG,PD. SAVE 

; *,ML.REG 

: ML.REG,MLREG 

: *,MLREG 

; MLREG,* 

; *,PD.SAVE+1 4785 
j 4789 
; *,ML.REG 

; WRD.CNT,* 

; RAND. INDEX,* 

: ML.REG,* 

; CRC.SEL,* 4792 
; PAT.SEL,* 

3 4791 
; WRD.CNT 4780 
; WRD.CNT,* 

; OFFSET, RAND. INDEX 4799 
3 SEC.CNT 4776 
3 SEC.CNT,* 

; 4738 
3 4807 
7 SEC.CNT 

3 4808 
; WRD.CNT 4811 
3 4813 
; *,ML.REG 

; ML.REG,PD. SAVE 

; *.ML.REG 

; ML.REG,MLREG 

; *,MLREG 

; MLREG,* 

; *,PD.SAVE+1 4814 


| BSKELS 

REV A PATCH 00 

' 922322 016705 
016566 


oO 
iat) 
las) 
WN 
mM 
Oo 


oO 
ror 
rong 

¥ 

nm 


0 
022572 


; Routine Size: 
; Maximum stack 


F 16 
21-Apr-1981 08:40:22 


ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 


036772" MOV ML .ADDR 
000034 600024 MOV 54(R9). Resp) 
000006 ADD 6(SP) ,RS 

ASL R5 
001232" MOV WRT. BUF (R5),RO 
137777 BIC #137777,RO 
000024 MOV 24(SP) ,R4 
137777 BIC #137777 ,RG 

CMP R4,RO 

BEQ 238 

MOV R1,-(SP) 

MOV R2,-(SP) 
162440 JSR PC.L.CHIP.TBL 

cep (SP) +, (SP)+ 

238: INC R3 

000177 CMP R3,4177 

BLE 22$ 
000010 000006 ADD 10(SP) ,6(SP) 
000012 INC 12(SP) 
000012 000014 24$: CMP 12(SP),14(SP) 

BLE 21$ 
000006 258: ADD #6,SP 

INC R2 
000010 268: CMP R2,10(SP) 

BGT 27$ 
176750 JMP 3$ 

278: INC R1 

000046 CMP R1,446 

BGT 28$ 
176674 JMP 1$ 
036772" 288: MOV ML.ADDR,RS 
000010 000014 MOV 10(R5), 14 (sp) 
000014 MOV 14(SP),R 
000040 BISB #&40,R4 
036772" MOV ML.ADDR,R5 
000010 MOV R4, + 10(R5) 
036772" MOV ML. R5 
000010 000012 MOV 10(R3), “Ags 
000012 MOV 12(S 
036776' MOV ML .D 
177770 BIC #177 UO. 25 
000007 BICB = #7, RG 

BIS R5,R4 
036772! MOV ML .ADDR,R5 
000010 MOV R4_10(R5) 
000042 ADD #42,5P 

RTS PC 

340 words y 

depth per invocation: 28 words 


TOPS=20 Bliss-16 yeeie) 
PA:<NEALE>PMSKL4.BLI.1 (49) 


. 
PI 
Pi 
Py 


RAND. INDEX, * 
ML.REG,* 


CRC.SEL,* 
PAT.SE.,* 


WRD. CNT 
WRD.CNT,* 


OF F SET ,RAND. INDEX 
SEC.CNT . 


; SEC.CNT,* 


PAT.SEL 
PAT.SEL.* 


CRC.SEL 
CRC.SEL,* 


* ,ML.REG 


; ML.REG,MLREG 
; * ,MLREG 


MLREG,* 
* ,ML.REG 
ML ..REG,MLREG 


* ,MLREG 
* ,MLREG 


; MLREG,* 


Pa 167 
SEQ°0200 


4820 


467? 
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: 4844 routine FB_CHIPS (TEMP_ARRS$BNK_SEL) : novalue = 
gg. 4845 begin 
; 4846 
& 4847 !++ 
| 3 a8 t FUNCTIONAL DESCRIPTION: FIND BAD CHIPS 
: 4850 ! THIS ROUTINE CALLS THE FIND BAD DATA CHIP AND 
: seo FIND BAD CRC CHIP ROUTINES. 
: 4853! IF THE FR_DATA_CHI? ROUTINE DETECTES A UNC 
; 4854! ERROR a THE FB_CRC_CHIP ROUTINE IS NOT 
; 4855! CALLED 
; 4856 =! 
; 4857 | FORMAL PARAMETERS: 
; 4858 =! TEMP_ARR$BNK_S 
; 4859 =! STONES. THE SELECTED ARRAYS ARRAY AND BANK 
; 4860 ! SELECT NUMBERS. 
; 4861 ‘-- 
: 4862 
; 4863 FLG_REG oF _UNC_ERR_FLG] = CLR_FLG; 'CLEAR THE UNCORRECTABLE ERROR FLAG 
; 4864 | CRIP_TBL (); 'INIT THE BAD CHIP 


4867 if .FLG_REG CF_UNC_ERR_FLG] then FB_CRC_CHIPS (.TEMP_ARRSBNK_SEL) ; 


; 4869 - '!FIND ALL THE BAD CRC CHIPS IN THIS BANK 
3 4870 end; 


-SBTTL FB.CHIPS ROUTINE DECLARATIONS 
022574 142767 000002 037020" FB.CHIPS: 
BICB #2,FLG.REG ; 4865 


022602 004767 161566 JSR PC,1.CHIP.TBL : 4864 
022606 016646 000002 MOV 2(SP) ,-(SP) ; TEMP.ARRSBNK.SE,* 4865 
022612 004767 175456 JSR PC, ag DATA.CHIPS 

022616 032767 000002 037020" BIT ace FLG.REG 3 4867 


022626 016646 000004 MOV 4(SP) ,~(SP) > TEMP. ARRSBNK.SE,* 
022632 004767 176466 JSR Mies -CRC.CHIPS 


022640 005726 1$: TST (SP) + : 4845 
022642 000207 RTS PC : 4844 


; Routine Size: 20 words 


j TABLE 
5 4865 ‘5 DATA. PuIPS (., TEMP_ARR$BNK_SEL); 'FIND ALL THE BAD DATA CHIPS 0-35 IN THIS BANK 
>: Maximum stack depth per invocation: 2 words 


H 16 
21 -apr=19 
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; 4871 routine PM_THIS_BANK (TEMP_ARR$BNK_SEL) : novalue = 
| 3 4872 begin 
: 4873 
i 4874 !+ 
zz ry 1 FUNCTIONAL DESCRIPTION: PROM MAINTENANCE THIS BANK 
| 3 4877 | TH1S LOOPS ON THE ROUTINES THAT WILL 
; 4878 FIND ALL THE NEWLY FAILING CHIPS IN 
| 3 a7 | THIS ARRAY BANKS. 
| 3 4881 | THE BLAST TABLE WILL GET LOADED WITH 
3 4882 | ALL THE NEWLY FAILING ROW AND COLUMN 
a 4883 | ADDRESSES AS A RESULT OF THESE CALLED 
| : 4884 | ROUTINES. 
; 4885 | 
| : 4886 ' FORMAL PARAMETERS: 
; 4887 |! TEMP_ARR$BNK 
| ; 4888 | STONES. THE gain ARRAYS ARRAY AND BANK 
; 4889 | SELECT NUMBER 
; 4890 ‘= 
; 4891 
; 4892 Local 
; 4893 BAD_CHIP, 'PCINTS TO BAD CHIPS TO BE TESTED 
; pe oe LST_PAT; 1LAST PATTERN TEST FOR THIS FAILING CHIP 
; rr, BAD_CHIP = S_CHIP_TBL (ZERO); 'FIND A BAD CHIP TO TEST 
: 4898 if .BAD_CHIP geq ZERC 'ARE THERE ANY CHIPS TO TEST 
E 4899 then 
» 4900 ey 
3 pet FLG_REG CF_ALL_BAD_CHIPJ = CLR_FLG; ‘CLEAR THE ALL BAD FLAG 
: 4903 do 
. 4904 begin 
; 4905 sEED1 = ZERO; ‘INIT THE RANDOM DATA SEED1 
; 4906 SEED2 = %0'1233'; ‘INIT THE RANDOM DATA SEED2 
; 4907 SEED3 = %0'7622'; 'INIT THE RANOMD DATA SEED3 
3 4908 FLG_REG CF_ERR_ MAP_ ENTERED] = CLR_FLG; 'CLEAR THE ENTERED ERROR MAP FLAG 
3 4909 BREAK; 
: 4910 I ERROR MAP (); INIT THE ERROR MAP 
; pa LST_PAT = ZERO: it AST PATTERN STARTS AT ZERO 
; PAs do 'TEST ALL FAILING PATTERNS FOR THIS BAD CHIP 
: 4915 ory's PAT = L_FAILING_CHIP (.TEMP_ARRSBNK SEL, .BAD_CHIP, .LST_PAT); 
: 4916 1 > ERROR _Mape (. TEMP_ ARR$BNK._ SEL, -BAD CHIP); 
: pests F 'LOAB THE ERROR MAP WITH FAILING ROWS AND COLUMNS 
e en 
: oC until .CHIP_TBL [.BAD_CHIP, PATS] eql ZEROES; 'REPEAT UNTIL ALL PATTERNS ARE TESTED 
: 4921 if .FLG_REG CF _ERR_MAP_ENTERED] ‘WERE ANY FAILING ROWS/COLS DETECTED 


4922 then 
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022644 
022650 


5 
010246 


end; 


0000006 
170742 


000020 
000000 


G 
001233 


007622 

000004 

161624 

000016 

162314 

163136 
0 


000010 
077777 
000004 


else 


beg 
IN 
en 


begin 
ERRSF (ERR_4, UNC_CHIP_MSG, 0); !REPORT THE UNCONFIRMED ERROR 
C_PRINT, .TEMP_ARRSBNK_SEL<.ARR_SEL_POS, 


PRINTB (A_B Z 
. TEMPARRSBNK_SEL<.BNK_SEL_POS, BNKSSEL_SIZE>, .BAD_CHIP); 


end; 


I 16 
21-Apr-1 
21-Apr-1 


in 
ERROR_MAP (.TEMP_ARRSBNK_SEL, .BAD_CHIP); 


CHIP_TBL C.BAD_CHIP, FAULT] = CLR_FLG; 
BAD_CHIP = S_CRIP_TBL (.BAD_CHIP); ‘FIND TH 


end 
until (.BAD_CHIP lss ZERO) or (.FLG_REG CF _ABORT_ARRAY J); 


end; 


037020" 


037020' 


026626" 
037020" 


PM. THIS.BANK: 
JSR 


2$: 


981 08:40:2 
981 08:19:0 


2 TOPS=20 Bliss=16 V2(212) 
6 PA:<NEALE>PMSKL4.8L1.1 (51) 


!INTERIGATE THE ERROR MAP 


ARR$SEL SIZE>, 


'REPORT WHERE 


'CLEAR THIS CHIPS FAULT FLAG 


E NEXT FAILING CHIP 


.SBTTL PM. THIS.BANK ROUTINE DECLARATIONS 


R1,$SAVE4 
~(SP) 
PC,S.CHIP.TBL 
RO,R3 


o 


5$ 

#20,FLG.REG 
SEED1 

#1233, SEED2 
#7622, SEED3 
#4,FLG.REG 

22 
PC,1.ERROR.MAP 
RG 

R3,R1 

R1 

16(SP) ,R2 
R2,-(SP) 
R3,-(SP) 
R4,-(SP) 

PCL. FAILING. CHI 
R3,-(SP) 
PC.L.ERROR.MAP 
#10,SP 

477777 CHIP. TBL ( 
#4,FLG.REG 


R2,-(SP) 


‘REPEAT UNTIL ALL BAD CHIPS TESTED 


; *,BAD.CHIP 


3 LST.PAT 
; BAD.CHIP,* 


; TEMP.ARRSBNK.SE,* 


; BAD.CHIP,* 
; LST.PAT,* 


3 *,LST.PAT 
; BAD.CHIP,* 


p 


R1) F 
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i 
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023010 010346 MOV R3,-(SP > ; BAD.CHIP,* 

023012 004767 174716 JSR PC,IN. ERROR. MAP 

023016 000447 BR 4$ : 4921 
023020 104454 3$: TRAP 54 : 4928 
023022 000004 ,WORD 4 

023024 000526" "WORD UNC. CHIP.MSG 

023026 000000 “WORD 0 

023030 010346 MOV R3,- (SP) ; BAD.CHIP,* 4930 
023032 012746 000022 MOV #22, < (SP) 

023036 060616 ADD SP, (SP) ; TEMP. ARRSBNK.SE,* 

023040 016746 037012" MOV BNK. SEL. ;POS. -(SP) 

023044 012746 000002 MOV #2,-(SP) 

023050 005046 CLR -(§P) 

023052 004767 0000006 JSR PC ,BL$GT2 

023056 022626 CMP (SP) +, (SP)+ 

023060 010066 000002 MOV RO,2(SP) 

023064 012716 000024 MOV #24, (SP) 

023070 060616 ADD SP, (SP ; TEMP. ARRSBNK.SE,* 

023072 016746 037010' MOV ARR. SEL. ;POS. =(SP) 

023076 612746 000004 MOV #4 ,-(SP) 

023102 005046 CLR -(§P) 

023104 004767 0000006 JSR PC,BL$GT2 

023110 022626 CMP (SP) +, (SP) + 

023112 010066 900002 MOV RO,2(SP) 

023116 012716 002120" MOV #A.B.C.PRINT, (SP) 

923122 012746 000004 MOV #4,,-(SP) 

023126 010600 MOV SP,RO s SP ,* 

023130 104414 TRAP —s-_:*14 

023132 062706 000006 ADD #6,5S : 4927 
023136 042761 100000 026626' 4$: BIC #400000, CHIP. TBL(R1) : 4933 
023144 010316 MOV R3, (SP) ; BAD.CHIP,* 4934 
023146 004767 170446 JSR PC,S.CHIP.TBL 

023152 010003 MOV RO.R3 : *,BAD.CHIP ‘ 
023154 022626 CMP (SP) +, (SP) + : 4904 
023156 005703 TST R3 ; BAD.CHIP 4936 
023160 002404 BLT 5$ 

023162 032767 000100 037020° BIT #100,FLG.REG 

023170 001637 BEOQ 1$ 

023172 005726 5$: TST (SP) + * 4872 
023174 000207 RTS PC ; 4871 


; Routine Size: 109 words | : 
: Maximum stack depth per invocation: 12 words 


K 16 
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H 4941 routine CAL_CHK_SUM : novalue = 
rs 4942 begin 
i é 4943 
; 4944 \+4 
; the FUNCTIONAL DESCRIPTION: CALCULATE THE CHECK SUMS 
3 4947 ! THIS ROUTINE WILL CALCULATE THE NEW 
Ss 4948 ! CHECK SUMS FOR THE NEW PROM DATA TO 
i: 4949 |! BE BLASTED INTO THE SELECTED ARRAYS 
| 3 4950 ! PROMS. 
| ; 4951! 
| 3 4952 
| 3 4953 Local ; 
: 4954 PD_SAVE : bitvector [16], ‘STORES THE PROM DATA TO BE Pisces 
5 4955 PD 'COUNTS NUMBER OF BITS 0-9 
3 4956 CHR. 3UM_CNT, ‘COUNTS THE OLD CHECK SUM V. va UE 
2 tee REMAINDER; 'STORES THE NUMBER OF COUNT TO UPDATE THE CHECK SUMS WITH 
: 4959 Label 
: 4960 A; 'LEAVE LOOP LABEL 
: 4961 
; 4962 map . 
; rte ERROR_MAP : blockvector [4, 512] volatite; 'MAKE THE ERROR MAP LOOK LIKE THE BLAST TABLE 
: 4965 incr BNK_SEL from 0 to 3 do 'LOOK AT ALL THE BANKS 
: 4966 begin 
$ 4967 
; 4968 if .BAD_BNK_REG [.BNK_SELJ '1S THIS A BAD BANK 
: 4969 then 
BR on 
: 4972 incr PD_WRD_SEL from 0 to .MAX_CHIP_COL*2 - 1 do 'LOOK AT ALL THE ROWS AND COLUMNSNS 
Peon ae 
: 4975 if .BLAST_TBL [.BNK_SEL, .PD_WRD_SEL, FULL_WRD] neq ZERO 'TS THIS LOCATION ENPTY 
. 4976 then 
: 4977 A: 
3 4978 begin 
: 4979 Pp 0 _9_CNT = ZERO; 'CLEAR THE a 
: 4980 CHK_SUM_CNT = ZERO; 'CLEAR THE COUN 
: read PD_SAVE = .BLAST_TBL C.BNK_SEL, .PD_WRD_ he FULL_WRDJ; 'GET THIS PROM DTAT WORD 
, rhs incr CNT from 0 to 9 do 'COUNT THE #4 OF BITS SET INO - 9 ¢ 
; 4985 if .PD_SAVE [.CNT] then PD_O_9_CNT = .PD_O_9_CNT + 2; 
: 4987 CHK_SUM_CNT = .PD_SAVE<10, 3>; 'GET THE OLD COUNT 
: 4988 CHK~SUM_CNT = .CHK_SUM_ CNT + .PD_SAVE<13, 1>; 
; 4989 CHK_SUM_CNT = .CHK_SUM_CNT + .PD_ “SAVE<14, 1>; 
: 4990 CHK~SUM~CNT = .CHK_SUM_CNT + .PD ~SAVE<15, 1>; 
4991 REMAINDER = .PD_ 0_9_CNT - CHK _ SUM_CNT; ‘HOW MANY MORE TO ENTER 





,-———— 


' BSKELS 
REV A PATCH 00 ROUTINE DECLARATIONS 


° 
> 
i ° 
o 
i ° 
. 
° 
| ° 
| o 
| ° 
. 
° 
. 
° 
. 
° 
° 
° 
° 
° 
° 
° 
. 
° 
. 
° 
+ 
a 
- 
° 
. 
° 
os 
° 
os 
° 
. 
° 
. 
° 
. 
° 
. 
° 
. 
° 
. 
° 
. 
e 
. 
° 
. 
° 
. 
° 
. 
° 
. 
° 
. 
° 
. 
° 
. 
* 
7 
° 
. 
° 
. 
o 
. 
* 
’ 
- 
° 
. 
° 
. 
° 
. 
* 
7 
° 
. 
* 
. 
e 
. 
° 
. 
* 
. 
| * 
. 
* 
. 
° 
. 
* 


16 
21-Apr-1981 08:40:22 TOPS=20 Bliss-16 V2(212) 
21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI.1 (52) 


if .REMAINDER gea 4 'DO WE ADD IN MORE THAN 3 
then : 
begin 
if .PD_SAVE<12, 1> eql ZERO 11S THIS BIT ALREADY SET 
then 
begin 
PD SAVE<12, SET_FLG; !SET THIS BIT 
REMAINDER = REMAINDER - 4; !SUBTRACT THE WEIGHT 
if REMAINDER eql ZERO 'ARE WE ALL DONE 
then 


bree TBL C.BNK_SEL, .PD_WRD_SEL, FULL_WRD] = .PD_SAVE; 
ERROR MAP [.BNK “SEL. “PD “WRD_SEL, FULL_WRD] = .BLAST_TBL [.BNK_SEL, 
.PD_WRD_SEL, FULL WRBJ; 


leave A; 'LEAVE THE LOOP 
end; 
end; 
end; 
if .REMAINDER geq 2 'DO WE ADD IN MORE THAN 1 
then 
begin 
Ai -PD_SAVE<11, 1> eql ZERO 'TS THIS BIT ALREADY SET 
tnen 


be 
Se wvectt, 1> = SET_FLG; !SET THIS BIT 
REMAINDER = .REMAINDER - 2; !SUBTRACT THE WEIGHT 


if .REMAINDER eql ZERO 'ARE WE DONE 
then 


Brest TBL C.BNK_SEL, .PD_WRD_SEL, FULL _WRDJ = 
ERROR PAP C .BNK_ SEL, .PD “WRD_SEL, FULL_WRD] = 


-PD_SAVE; 
-BLAST_TBL [.BNK_SEL, 
D_WRD_SEL> FULL_WRDJ; 


tome A; 'LEAVE THE LOOP 
end; 
end; 
re geq 1 'DO WE ADD MORE THAN 0 
begin 
1 A td cert 1> eql ZERO 'TS THIS BIT ALREADY SET 


Page 173 
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eS ee 
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; 5045 begin 
; 5046 PD SAVE<10, 1> = SET_FLG; 'SET THIS BIT 
: sot REMAINDER = .REMAINDER = 1; !SUBTRACT THE WEIGHT 
3 5049 if .REMAINDER eql ZERO 'ARE WE DONE 
3 5050 _—, 
3 5051 og by 
3 5052 BLAST_TBL C.BNK_SEL, .PD_WRD_SEL, FULL _WRD] = .PD_SAVE; 
; 5053 ERROR-MAP [.BNK—SEL, .PD-WRD_SEL, FULL_WRD] = .BLAST_7BL C.BNK_SEL, 
3 5054 .PD_WRD_SEL; FULL_WRDJ; 
; 5055 leave A; 'LEAVE THE LOOP 
; 5056 end; 
3 5057 
; 5058 end; 
Z 5059 
é 5060 end; 
; 5061 
Z 5062 if .PD_SAVE<13, 1> eql ZERO !IS THIS BIT ALREADY SET 
; 5063 then 
: 5064 begin 
H 5065 PD SAVE<13, 1> = SET_FLG; 'SET THIS BIT 
; goes REMAINDER = .REMAINDER = 1; 
; 5068 if .REMAINDER eql ZERO !ARE WE DONE 
; 5069 wine 
3 5070 gy 
4 5071 BLAST_TBL C.BNK_SEL, .PD_WRD_ SEL, FULL_WRD] = .PD_SAVE; 
; 5072 ERROR “MAP + BNK_ SEL. PD. ~WRD_ SEL, FULL ~WRD J = -BLAST_TBL C.BNK_SEL, .PD_WRD_SEL, 
3 5073 FULL _WRDJ; 
: 5074 leave A; 'LEAVE THE LOOP 
: 5075 end; 
; 5076 
: 5077 end; 
; 5078 
3 5079 if .PD_SAVE<14, 1> eql ZERO 'IS THIS BIT ALREADY SET 
; 5080 then ‘ 
: 5081 begin 
3 5082 PD SAVE<14, 1> = SET_FLG; 'SET THIS BIT 
3 set REMAINDER = .REMAINDER - 1; 'SUBTRACT THE WEIGHT 
3 5085 if .REMAINDER eql ZERO !ARE WE DONE 
5 5086 an 
3 5087 begin 
; 5088 BLAST_TRL C.BNK_SEL, .PD_WRD_ SEL, FULL_WRD] = .PD_SAVE; 
: 5089 ERROR “MAP 4 BNK_ oe -PD_ WRD_ SEL. FULL ~WRD J = -BLAST_TBL C.BNK_SEL, .PD_WRD_SEL, 
; 5090 FULL _WRDJ; 
2 5091 leave A; 'LEAVE THE LOOP 
: 5092 end; 
; 5093 
, 5094 end: 
: 5095 


: 5096 PD_SAVE<15, 1> = SET_FLG; 'SET THE BIT 
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3 5097 BLAST_TBL [.BNK_SEL, .PD_WRD_SEL, FULL_WRDJ = .PD SAVE; 
‘ rae ERROR_MAP C.BNK_SEL, .PD_WRD_SEL, FULL_WRD J = -BLAST_TBL C.BNK_SEL, -PD_WRD_SEL, FULL _WRDJ 
; 5100 end; 
; 5101 
3 5102 end; 
5 51035 
5 5104 end; 
; 5105 
: 5106 end; 
; 5107 
; 5108 end; 

.SBTTL CAL.CHK.SUM ROUTINE DECLARATIONS 
023176 004167 000000G CAL.CHK.SUM: 
JSR R1,$SAVE5 g 4941 
023202 162706 000016 SUB #16,SP e 
023206 005046 CLR -(SP) ; BNK.SEL 4965 
023210 611600 1$: MOV (SP) ,RO ; BNK.SEL,* 4968 
023212 006200 ASR RO 
023214 006200 ASR RO 
023216 006200 ASR RO 
023220 062700 037016" ADD #BAD .BNK .REG,RO 
023224 010046 MOV RO,-(SP) 
923226 016646 000002 MOV 2(SP) ,- (SP) ; BNK.SEL,* 
023232 042716 177770 BIC #177770, (SP) 
023236 012746 000001 MOV #1,-(SP) 
023242 005046 CLR -(SP) 
023244 004767 000000G JSR PC ,BL$GT2 
023250 062706 000010 ADD #10,SP 
023254 006000 ROR RO 
023256 103402 BLO 2$ 
023260 000167 000530 JMP 17$ 
023264 016766 036774' 000014 2$: MOV MAX. CHIP.COL,14(SP) : 4972 
023272 006366 000014 ASL 14(SP) 
023276 . 911600 MOV (SP) ,RO ; BNK.SEL,* 4975 
023300 ~ (000300 SWAB RO 
023302 105000 CLRB RO 
023304 006300 ASL RO 
023306 010066 000012 MOV RO,12(SP) 
023312 005066 000004 CLR 4(SP) : PD.WRD.SEL 4972 
023316 000167 000456 JMP 16$ 
023322 016605 000004 3$: MOV 4(SP),R5 ; PD.WRD.SEL,* 4975 
023326 066605 000012 ADD 12(SP) ,R5 
023332 006305 ASL R5 
3334 012766 026770" 000010 ; MOV #BLAST.TRI,10(SP) 

023342 060566 000010 ADD R5,10(SP) 
023346 005776 000010 TST a10(SP) 
023352 001002 BNE 4$ 


023354 000167 000414 JMP 15$ ' 
023360 005066 000006 4$: CLR 6(SP) > PD.9O.9.CNT 4979 


BSKELS 
REV A PATCH 00 


ROUTINE DECLARATIONS 


000002 
000010 00016 


000016 


177770 
000001 
0000006 
000010 
000006 
000011 
000016 


177770 
000002 


020000 


000002 
040000 


010000 


010000 
000004 


000016 


000016 


000016 
000016 


5$: 


6$: 


7$: 


8$: 


B 1 
21-Apr-198 
21-Apr=-198 


2(SP) 
@10(SP),16(SP) 
R4 

R4,R3 

R3 

R3 

R3 

#16,R2 


R2,R 

R3, “(sh 
R57 950, (SP) 
#1,-(SP) 
-(SP) 
PC,BL$GT2 
#10,SP 

RO 

6‘SP) 

RG 

R4 #11 

14 (SP) ,R4 
RS 

R4 


R4 
#177770,R4 
R4,2(SP) 


R4 
#20000, 16(SP) 
6$ 


R4 
R4,2.5P) 


R 
#40000, 16(SP) 
7$ 


R4 
R4,2(SP) 
R4 
16(SP) 
8$ 


SLOUme, - 16(SP) 
ero 16(SP) 
#4 ,R 

ae. 


TOPS=20 Bliss-16 v2(212) 
PA:<NEALE>PMSKL4.BLI.1 (52) 


3; CHK.SUM.CNT 
3 *,PD.SAVE 


; PD.SAVE,* 


3: CNT.* 


PD.0.9.CNT 
CNT 

3; CNT,* 

Py PD.SAVE,* 


; *,CHK.SUM.CNT 
* ,PD. SAVE 


* ,CHK.SUM. CNT 
; *,PD.SAVE 


3 *,CHK.SUM.CNT 

PD.SAVE 

3; *,CHK.SUM.CN 

> PD.0.9.CNT, REMAINDER 
> CHK.SUM, CNT ,REMAINDER 
; REMAINDER,* 

; *,PD.SAVE 


3 *,PD.SAVE 
; *, REMAINDER 


Page 176 
SEQ 0209 


4983, 


4987 


4988 


4989 


4990 


_-—— ———-} 


* 
21-Apr-1981 08:40: 
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023626 020127 000002 9$: CMP R1,42 : REMAINDER,* 5016 
023632 002412 BLT 10$ 
023634 032766 004000 000016 BIT #4000, 16(SP) : *,PD.SAVE 5020 
023642 001006 BNE 
023644 952766 004000 000016 BIS #4000, 16(SP) : *,PD.SAVE 5023 
023652 162701 000002 SUB #2,R : *,REMAINDER 5024 
— 023656 001440 BEQ +e ok : 5029 
023660 005701 10$: TST R1 : REMAINDER 5039 
023662 003411 BLE 11$ 
023464 032766 002000 000016 BIT #2000, 16(SP) : *,PD. SAVE 5043 
— 023672 001005 BNE 1 
- 023676 052766 002000 000016 BIS #2000, 16(SP) : *,PD.SAVE 5046 
| 023702 005301 DEC R1 : REMAINDER 5047 
023704 001425 BEQ 14$ : 5052 
023706 032766 020000 000016 11$: BIT #20000, 16(SP) : *,PD.SAVE 5062 
023714 001005 BNE 12$ 
023716 052766 020000 000016 BIS #20000, 16(SP) : *,PD.SAVE 5065 
023724 005301 DEC R1 ; REMAINDER 5066 
023726 001414 BEQ 14$ : 5071 
023730 032766 040000 000016 12$: BIT #40000, 16(SP) : *,PD.SAVE 5079 
023736 001005 BNE 13$ 
023740 052766 040000 000016 BIS #40000, 16(SP) : *,PD.SAVE 5082 
023746 005301 DEC R1 > REMAINDER 5083 
023750 001403 BEQ 14$ : 5088 
023752 052766 100000 000016 13$: BIS #100000, 16(SP) : *,PD.SAVE 5096 
023760 016676 000016 000010 14$: MOV 16(SP) ,a10(SP) 3 PD.SAVE,* 5097 
023766 017665 000010 006626' MOV @10(SP) ,ERROR.MAP(R5) : 5098 
023774 005266 000004 15$: INC 4(SP) > PD.WRD.SEL 4972 
024000 026666 000004 000014 16$: CMP 4(SP),14(SP) > PD.WRD.SEL,* 
024006 002002 BGE 17$ 
024010 000167 177306 JMP 3$ 
024014 005216 17$: INC (SP) : BNK.SEL 4965 
024016 021627 000003 CMP (SP) 43 : BNK.SEL,* 
024022 00300 BGT 18$ 
024024 000167 177160 JMP 1$ 
024030 062706 000020 18$: ADD #20,SP : 4941 
024034 000207 RTS PC 


; Routine Size: 208 words — 
: Maximum stack depth per invocation: 18 words 


D1 
21-Apr-1981 08:40:22 TOPS=20 Bliss=-16 V2(212) 


BSKELS Page 178 
REY A PATCH 00 ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BL1.1 (53) SEQ 0211 | 
3 5109 routine BL_PROMS (ARR$BNK_SEL) : novalue = 
; 5110 begin 

; 5111 
; 5112 | +4 

H ai? FUNCTIONAL DESCRIPTION: BLAST THE PROMS 

; S118 3 THIS ROUTINE WILL SEARCH THROUGH THE BLAST 

; i: TABLE AND LOOK FOR NON-ZERO LOCATIONS. 

; S147 8 IT WILL THEN BLAST THE PROMS AT THE SELECTED 

; Si18 3 ARRAY AND BANK WIT THE NEW PROM DATA FOUND 

; 3133 IN THIS LOCATION. 

> 5121 |! FORMAL PARAMETERS: 

; Sion 3 ARR$BNK_SEL : 

; sles 3 STORES THE SELECTED ARRAYS ARRAY AND 

; 5124 ! BANK SELECT NUMBER. 

; $125 !=- 

; 5126 

; 5127 Label 

; 5128 A; 'LEAVE LOOP LABEL 

; 5129 

; 5130 local 

; 5133 PROM_ADRS, 'STORES THE GENERATED PROM ADDRESS 

; a3 FINISH; 

; Ay <4 if .BNK_NUM_SEC eqi 127 then FINISH = 127 else FINISH = 255; 'IS THIS A 16K PART 

‘ 5136 WRT_PROM_MODE ; 'ENABLE PROM WRITES 

: 5137 PROM_ADRS = ZEROES; 'CLEAR THE PROM ADRS 

: 2138 PROM_ADRS<11, 4> = .ARRSBNK_SEL<.ARR_SEL_POS, ARR$SEL_SIZE>; 'SELECT THE ARRAY 

; Bn ‘ incr SEL_BNK from 0 to 3 do 'LOOP THRU ALL THE BANKS 

; 5142 begin 

: 5143 

: 5144 if .BAD_BNK_REG C.SEL_BNK1 'IS THIS A BAD BANK 

s 5145 then 

; 5146 a 

; 5147 PROM_ADRS<10, 1> = ZERO; 'LOAD THE ROW ADDRESS SELECT BIT 

; Bey: PROM_ADRS<8, 2> = .SEL_BNK; 'LOAD THE BANK SELECT 

; 5150 incr ROW_NUM from 0 to .FINISH do ‘BLAST ALL THE NEW ROW PROM DATA 

5 ar} begin 

; glez iy -BLAST_TBL C.SEL_BNK, .ROW_NUM, FULL_WRD] neq ZERO !JS THIS TABLE ENTRY NOT ZERO 

’ then 

; 5155 pean 

: 5156 PROM_ADRS<O0, 8> = .ROW_NUM; !LOAD THE ROW NUMBER 

: 5157 WRT_RH (MLPA, PA_REG, -PROM_ADRS); !SELECT THE PROM ADDRESS 

; 5158 WRT-RH (MLPD, PD_REG, .BLAST_TBL [.SEL_BNK, .ROW NUM, FULL_WRDJ); ‘LOAD THE PROM DATA 
; 5159 DAT_CLK; TCLOCK THE NEW PROM BATA IN 

rd 5160 DELAY (FIFTY_MS); 'WAIT FOR THE WRITE TO COMPLETE 


BSKELS 
REV A PATCH 00 ROUTINE DECLARATIONS 
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so 
Oo 


al 
sO 
oo 


5199 


end; 


PROM_ADRS<10, 


e 7 
21-Apr-1981 08:40: 


22 
21-Apr-1981 08:19:06 PA: <NEALE>PMSKL4.8L1.1 


if .ML_ADDR CMLMR, D_CLK]  !DID THE DATA CLOCK TIME OUT 


then 


end; 


pear (ERR_10, TIME_OUT_MSG, 0); 'REPORT THE ERROR 
PRINTB (ONE_| MSG, REP _M7363_MSG): 

PRINTB (ONE-MSG. COPRES. M SG): 

FLG_REG CF_B_ CLK_ TIME Sond = SET_FLG; 

Leave A; 

end; 


1> = ONE; 'TURN ON THE COLUMN ADDRESSES 


incr COL_NUM from 0 to .FINISH do ‘BLAST ALL THE NEW COLUMNS 


begi 
if 


n 


then 


end; 
end; 
end; 


CLR_MBUS; 
DELAY (TEN_MS); 
end; 


-BLAST_TBL C.SEL_BNK, .COL _NUM + .COL_BASE, FULL_WRDJ neq ZERO 


‘IS THIS~ TABLE entry not ZRRO 


BRoM ADRS<O, 8> = .COL_NUM; !LOAD THE COLUMN NUMBER 


WRT 
WRT 


DAT_CLK 
DELAY (FIFTY_MS); 


_RH (MLPA, PA _REG, TPROM_ADRS); .SELECT THE PROM ADDRESS 


~RH (MLPD, PD_REG, “BLAST. TBL C.SEL _BNK, .COL_NUM + .COL_BASE, 


TCLOCK THE NEW PROM BATA IN 
iWAIT FOR THE WRITE TO COMPLETE 


if .ML_ADDR CMLMR, D_CLK] !DID THE DATA CLOCK TIME OUT 
tnen 
pb (ERR_10, TiME_OUT_MSG, 0); 'REPORT THE ERROR 
PRINTB (ONE _MSG, REP M7363 MSG): 
PRINTB (ONE_MSG, SUPRES_MSG); 
FLG_REG CF_DB_ CLK_ TIME ae SET_FLG; 
leave A; 
end; 
end; 


Ee 


'CLEAR THE PROM WRITE ENABLE 
‘WAIT FOR THE VOLTAGE TO SETTLE 


TOPS=20 Bliss-16 V2(212) 
(53) 


FULL_WRDJ); 


BSKELS 
REV & PATCH 00 ROUTINE DECLARATIONS 


924036 004167 0000006 


06240462 162706 000034 
— 026046 026727 037014" 


024056 012766 000177 


-C24066 012766 000377 
024074 016701 036772" 


024116 010261 000024 
024124 012746 000054 


024132 016746 037010" 
024136 C€12746 000004 


024144 004767 0000006 


006 
024160 042700 103777 
024164 nese 074000 


024204 062700 037016" 
024214 042716 177770 
024220 012746 000001 
024226 004767 0000006 
000010 
024242 000167 000626 


024252 042704 176377 
024256 042703 003400 


Ss) rs) 

BR s 
NR 

rs + 

at) 

oS 

oO 

i) 

S 


_——— 


000177 
000002 
000002 
000030 


1$: 


3$: 


4$: 


.SBTTL BL.PROMS ROUTINE DECLARATIONS 
sc oibinsing 


a. 
21-Apr-1981 0 
21-Apr-1981 0 


R1,$SAVE5 

#34 ,SP 

- greuptecmecscd! 
#177,2(SP) 

2$ 

4377 ,2(SP) 

ML .ADDR,R1 
24(R1) , 30(SP) 
#140,Re 
ML.ADDR ,R1 
R2,24(R1) 

R3 

#54 ,-(SP) 


SP. (SP) 
ARR.SEL.POS,~(SP) 
#4 ,-(SP) 

-(SP) 

PC ,BL$GT2 

RO 

RO 
RO 


RO 
#103777,RO 
a 


R 
#BAD .BNK .REG,RO 
RO,~(SP) 


R5,-(SP) 
#177770, (SP) 
#1,-(SP) 


-(SP) 
PC ,BL$GT2 
#10,SP 


R5,R4 


R4 
#176377,R4 
#3400,R3 
R4,R3 
R5,RO 

RO 


8:4 
8:1 


0:22 
9:06 


TOPS=20 Bliss-16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (53) 


* FINISH 
* ,F INISH 


; *,ML.REG 
: *,MLRES 


MLREG,* 


; PROM.ADRS 


ARR$BNK.SEL,* 


* ,PROM. ADRS 
* ,PROM.ADRS 
SEL .BNK 

SEL .BNK,* 


SEL.BNK,* 


; SEL.BNK,* 


* ,PROM.ADRS 
* ,PROM.ADRS 
SEL.BNK,* 


Page 180 
SEQ°0213 


5109 
5134 


5140 
5144 


5148 


BSKELS 
REV A PATCH 00 


024540 


012746 


ROUTINE DECLARATIONS 


600010 


000010 
026770" 


036772" 
000020 


036772" 


000144 
0000006 
000042 


036772" 
000024 
000020 


001250" 
001630" 
000002 


0° 


00033 
001630" 


000036 


, 000034 


000032 


000030 
000030 


5$: 


6$: 


7$: 


8$: 
9$: 


G 1 

21-Apr-1981 08:40: 
21-Apr-1981 08:19 

RO 

RO 

RO,10(SP) 

R4 

11$ 

R4,RO 

10(SP) ,RO 

RO 

BLAST. TBL (RO) 

103 


R3 

R4,R3 
ML.ADDR,R1 
20(R1),36¢SP) 
R3,R2 
ML.ADDR,R1 
R2,20(R1) 
ML.ADDR,R1 
46(R1), 34(SP) 
BLAST. TBL(RO) ,R2 
ML.ADDR,R1 
R2, 46(R1) 
ML.ADDR 

24(R1), $3(sP) 
32(SP), 

730 R2” 
ML.ADDR,R1 
R2,24(R1) 
#144,R1 


9$ 
LSDLY,R2 
8$ 


ML.ADDR,R1 
24(R1), 30 (SP) 
#20, 30(SP 

10$ 

54 

12 

TIME .OUT.MSG 


0 

#REP.M7363. a4 -(SP) 
#ONE .MSG,-(SP 
#2,-(SP) 

SP.RO 


1 
#SUPRES .MSG, (SP) 
#ONE .MSG,-(SP) 


TOPS=20 Bliss=-16 V2(212) 
PA: <NEALE>PMSKL4.BLI.1 (53) 


ROW .NUM 
ROW.NUM, * 


PROM. ADRS 
ROW.NUM,PROM.ADRS 


* 


-ML.REG 
; PROM.ADRS ,MLREG 


MLREG,* 


*,ML.REG 
* ,MLREG 


MLREG,* 


* ,ML.REG 
ML .REG,MLREG 
* ,MLREG 


: MLREG,* 
: *,$$TMP2 


; *, $$TMP1 


$$TMP 


; $$TMP1 


$$TMP2 


*,ML.REG 
* .ML.REG 


> +, 


Page 181 


5150 
5153 


5156 
5157 


5158 


5160 


5162 


5165 


5166 


516? 


BSKELS 
REV A PATCH 00 


024544 


02 
025010 


012746 


00000: 
012746 


ROUTINE DECLARATIONS 


000002 


000012 
002000 


036770" 
000010 


026770" 


036772" 
000020 


036772" 


000144 
0000006 
000042 


036772" 


601250" 


000026 


, 000024 


000022 


000020 


—_ 


12$: 


13$: 


14$: 


15$: 
16$: 


1 
21-Apr-1981 08:40:22 
21-Apr-1981 08:19:06 


#2,-(SP) 
SP,RO 

14 

17$ 


R4 
R4,12(SP) 
#2000,R3 
R4 

193 


R4,RO 
COL .BASE ,RO 
10(SP) ,RO 


RO 
BLAST. TBL(RO) 
18$ 


R3 

R4,R3 

ML .ADDR,R1 
20(R1) ,26(SP) 
R3,R2 
ML.ADDR,R1 
R2,20(R1) 
ML.ADDR,R1 
46(R1) ,24(SP) 
BLAST. TBL(RO) ,R2 
ML.ADDR,R1 
R2,46(R1) 
ML.ADDR,R1 
ele 22 (SP) 
22(SP 

#50/RO" 
ML.ADDR,R1 
RO,24(R1) 


-ADDR,R1 
24(R1) ,20(SP) 
(PC) ,20(SP) 
18$ 
54 
12 
TIME .OUT.MSG 


0 
#REP.M7363.MSG,~(SP) 


TOPS=20 Bliss=16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (53) 


sP,* 


ROW .NUM 
; ROW.NUM,FINISH 


* ,PROM. ADRS 
COL .NUM 


COL .NUM,* 


PROM. ADRS 
COL .NUM,PROM.ADRS 


* 


-ML.REG 
PROM.ADRS ,MLREG 
MLREG,* 


* ML .REG 
* ,MLREG 


; MLREG,* 


*,ML.REG 
ML .REG.MLREG 
* -MLREG 


; MLREG,* 
: *, S$TMP2 


*, $$TMP1 


$$TMP 
$$TMP1 


$$TMP2 


*,ML.REG 
*,ML.REG 


Page 
SEQ 0215 


182 


5168 
5150 


5176 
5178 


5181 


5185 
5186 


5187 


5189 


5191 


BSKELS 
REV A PATCH 00 


; Rout 


012746 


tine Size: 
: Maximum stack depth per invocation: 


ROUTINE DECLARATIONS 
001630" 
000002 


000330" 
001630" 
000002 


000200 037020" 
000012 


000012 


000003 
177064 
036772" 
000010 000016 
000016 


03677 

000010 000014 
000014 

036776" 

177770 

0000907 

036772" 

000010 

023420 
0000006 


000042 


000044 


323 words 


17$: 
18$: 
19$: 
20$: 


218: 


22$: 


238: 


248: 


258: 


29 words 


cs 
21-Apr-198 
21-Apr-198 


MONE .MSG,=(SP) 
#2,-(SP) 


4 

MSUPRES .MSG, (SP) 
ae ee 
#2,-(SP) 

ve RO 


#200,FLG.REG 
#12,SP 
20$ 


RS 
R4,12(SP) 
12$ 


RS 

R543 

21$ . 
3$ * 
ML.ADDR 
10(R1), ig(sP) 
16(SP), 

weO RO 
ML.ADDR,R1 
RO,10(R1) 
ML.ADDR,R1 
10(R1),14 (SP) 
14(SP).RO 
ML.DUT,R5 
#177770,R5 
#7.RO 

R5.RO 
ML.ADDR,R1 
RO.10(R1) 
#23420,R2 


25% 
L$DLY,R1 
24 


—_2— 
oOo 
oo oo 
— kf 
wo 
on 
On 


TOPS=20 Bliss-16 NeNeie? 
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Bo Be Be Be 


SP,* 


SP,* 


COL .NUM 
COL .NUM,F INI SH 


SEL .BNK 
SEL .BNK,* 


* ,ML.REG 

ML .REG,MLREG 
* ,MLREG 
MLREG,* 


* ML .REG 
; ML.REG,MLREG 


* ,MLREG 
* ,MLREG 


MLREG,* 
* ,S$TMP2 


; *, SSTMP1 


$$ TMP 
$$TMP1 


$$TMP2 


ge 183 


sea 0216 


5196 


5197 
5198 


5178 


5140 


5207 


5109 


sieintniattisicenibaiplapiticancibbitit ui eileen , jolt 5 [ 


4 7 
21-Apr-1981 08:40:22 TOPS=20 Bliss=-16 V2(212) Page 184 
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3 | 
; 5212 routine VER_BLAST (ARR$BNK_SEL) : novalue = | 
: 5213 begin | 
; 5214 
. 5215! ++ 
; 3218 FUNCTIONAL DESCRIPTION: VERIFY THE PROM BLAST 
: $218 | AFTER THE PROMS HAVE BEEN BLASTED THE 
; 5219 | PROMS MUST BE READ TO INSURE THAT THEY 
; 2220 WERE WRITTEN CORRECTLY. 
: 5222 THIS ROUTINE READS ALL THE BANKS PROM 
5223! DATA AND COMPARES IT TO THE IDENTICAL 
3224 i PROM DATA STORED IN THE ERROR MAP. 
5226 =|) ~FORMAL PARAMETERS : 
: S227! RRSBNK_SEL 
; 5228 =! ~ STORES THE SELECTED ARRAYS ARRAY AND BANK 
; 5229! SELECT NUMBERS. 
; 5230 i= 
$231 
5232 loca 
5233 PRON ADRS, 'STORES THE GENERATED PROM ADDRESS 
5234 FINISH, iVARIABLE ENDING SECTOR NUMBER 
3239 ARR_SEL; iSTORES WHICH ARRAY IS SELECTED FOR PM" ING 
: 5237 map 
3238 ERROR_MAP : blockvector [4, 512] volatile; 'MAKE THE ERROR MAP LOOK LIKE THE BLAST TABLE 
: 3240 if .BNK_NUM_SEC eql 127 then FINISH = 127 else FINISH = 255; '1S THIS A 16K CHIP 
: 5242 RD_PROM_MODE:; ‘ENABLE PROM READ MODE 
; 5243 ARR_SEL~= .ARRSBNK_ _SEL<.ARR_SEL_POS, ARRSSEL S1ZE>; 'LOAD THE ARRAY SELECT NUMBER 
; 5244 PROM_ADRS = ZEROES TCLEAR THE PROM ADDRES 
; 3268 PROM_ADRS<11, 4> = .ARR_SEL; iLOAD THE ARRAY SELECT NUMBER 
: 5247 incr SEL_BNK from 0 to 3 do 'LOOP ON ALL BANKS 
: $249 hy ADRS<10, 1> = ZERO; ‘SELECT THE ROW ADDRESSES 
: 2230 PROM_ADRS<8, 2> = .SEL_BNK; iSELECT THE BANK 
: 3252 incr ROW_NUM from 0 to .FINISH do 'LOOK AT ALL ROW ADDRESSES IN THE BLAST TABLE 
: $254 oa ky ADRS<O, 8> = .ROW_NUM; 'LOAD THE ROW NUMBER 
: 5255 WRT_RH (MLPA, PA_REG, .PROM_ADRS); ‘SELECT THE PROM ADDRESS 
3 a629 DELAY (ONE _US); 'WAIT FOR THE PROM DATA TO COME OUT 
: 5258 if .ERROR_MAP C.SEL_BNK, .ROW_NUM, FULL_WRD] neq .ML_ADDR [MLPD, PD_REG] 
5259 then 
: 5261 Pe SF (ERR_8, CON_D_MSG, 0); 'REPORT THE ERROR 
; 5262 PRINTB (A.B PRINT TARR SEL. .SEL_BNK); 
: $263 DEGRADE_MOD"REG [.SEL_BNK) = SET_FLG; 


K 1 
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BSKELS 
REV A PATCH 00 ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI.1 (54) SEQ 0218 
3 5264 end; 
: 5265 
ses is 
a5o8 PROM_ADRS<10, 1> = ONE; ‘SELECT THE COLUMN ADDRESSES 
; a5y incr COL_NUM from 0 to .FINISH do 'LOOK AT ALL THE COLUMNS 
5 5272 peas ADRS<O, 8> =. NUM; 'SELECT THE COLUMN ADDRESSES 
; 5273 WRT_RH (MLPA, PA “REG. TPROM_ ADRS); '!SELECT THE PROM ADDRESS 
; eSoe DELAY (ONE _US); ‘WAIT FOR THE PROM DATA TO COME OUT 
: 2276 if .ERROR_MAP [.SEL_BNK, .COL_NUM + .COL_BASE, FULL_WRD] neq .ML_ADDR [MLPD, PD_REGI 
s t ag 
: 5278 ac 
: 5279 ERRSF (ERR_8, CON_D_MSG, 0); 'REPORT THE ERROR 
; 5280 PRINTB (A B PRINT, -ARR SEL, .SEL_BNK); 
; 5281 DEGRADE _MOD_REG LC. SEL_BNK] = SET_FLG; 
; 5282 end; 
; 5283 
, 5284 end; 
i 5285 
: 5286 end; 
; 5287 
3 5288 CLR_MBUS; 'CLEAR OUT THE PROM READ MODE 
; 5289 end: 
.SBTTL VER.BLAST ROUTINE DECLARATIONS 
025244 004167 000000G VER.BLAST: 
JSR R1,$SAVE5 3 5212 
025250 162706 000024 SUB #24,SP 
025254 026727 037014" 000177 CMP BNK .NUM. SEC ,4177 : 5240 
025262 001003 BNE 
264 012716 000177 MOV #177, (SP) : *, FINISH 
025270 000402 BR 2$ 
025272 012716 5 st ok 1$: MOV 4377, (SP) ; *, FINISH 
025276 016701 036772" 2s: MOV ML.ADDR,R1 
025302 016166 000024 000020 MOV 24(R1),20(SP) : *,ML.REG 
025310 012700 000040 MOV #40,R0 ; *,MLREG 
025314 016701 036772" MOV ML.ADDR,R1 
025320 010061 000024 MOV RO,24(R1) ; MLREG,* 
025324 012746 000044 MOV #44 ,-‘SP) s 5243 
025330 060616 ADD SP, (SP) ; ARRSBNK.SEL,* 
025332 016746 037010' MOV ARR.SEL.POS,-(SP) 
025336 012746 000004 MOV #4 ,-(SP) 
025342 005046 CLR -(SP) 
025344 004767 000000G JSR PC ,BLS$GT2 
025350 010005 MOV RO,R5 : *,ARR.SEL 
025352 005004 CLR R4 ; PROM.ADRS 5244 
025354 010503 MOV R5,R3 ; ARR.SEL,* 5245 
025356 000303 SWAB R3 


— 


. 
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~ 025360 006303 ASL R3 
— 025362 006305 ASL R3 
025364 006303 ASL R3 
| 025366 042703 103777 BIC #103777,R3 \ 
» 025372 042704 074000 BIC. #74000,R4 ; *,PROM.ADRS 
/ 025376 050304 BIS R3,R4 3 *,PROM.ADRS 
025400 005002 CLR R2 ; SEL.BNK 5247 
— 025402 010203 3$: MOV R2,R3 ; SEL.BNK,* 5250 
025404 000303 SWAB R3 
025406 042703 176377 BIC #176377,R3 
' 025412 042704 003400 BIC #3400,R4 ; *,PROM.ADRS 
025416 050304 BIS R3,R4 ; *,PROM.ADRS 
025420 010200 MOV R2,RO ; SEL.BNK,* 5258 
025422 000300 SWAB RO 
025424 105000 CLRB RO 
325426 006300 ASL RO 
125430 010066 000012 MOV RO,12(SP) 
525434 005003 CLR R3 ; ROW.NUM 5252 
025436 000503 BR 10% 
025440 105004 4$: CLRB R4 ; PROM.ADRS 5254 
025442 150304 BISB ; ROW.NUM,PROM.ADRS 
025444 016701 036772" MOV ML.ADDR,R1 : 5255 
025450 016166 000020 000026 MOV 20(R1) ,26(SP) 3: *,ML.REG 
025456 010400 MOV R4,R0 : ; PROM.ADRS,MLREG 
025460 016701 036772" MOV ML.ADDR,R1 
925464 010061 000020 MOV RO,20(R1) ; MLREG,* 
025470 012700 000001 MOV #1,R0 3; *, S$TMP2 5256 
025474 001411 5$: BEQ 8$ 
025476 016701 000000G MOV L$DLY,R1 : *,SSTMP1 
025502 001404 BEQ $ 
5504 005066 000032 6$: CLR 32(SP) 3 SSTMP 
025510 005301 DEC R1 : SSTMP1 
025512 001374 BNE 6$ 
025514 005300 7$: DEC RO ; SSTMP2 
025516 000766 BR 5$ 
025529 010300 8$: MOV R3,RO ; ROW.NUM,* 5258 
025522 066600 000012 ADD 12(SP) ,RO 
025526 006300 ASL RO 
025530 016701 036772' MOV ML.ADDR,R1 
025534 016166 000046 000024 MOV 46(R1),24(SP) : *.ML.REG 
025542 026066 006626" 000024 CMP ERROR .MAP(RO) ,24(SP) : *,ML.REG 
025550 001435 BEQ 9$ 
025552 104454 TRAP 54 3 5261 
025554 000010 -WORD 10 
025556 000510" -WORD CON.D.MSG 
025560 000000 WORD 0 
025562 010246 MOV R2,-(SP) >; SEL.BNK,* 5262 
025564 010546 MOV R5,-(SP) ; ARR.SEL,* 
025566 012746 002332' MOV #A.B.PRINT,-(SP) 
025572 012746 000003 MOV #3,-(SP) 
025576 010600 MOV SP RO : ,% 


025600 104414 TRAP 14 


— 025602 
0 


BSKELS 


KEL 
REV A PATCH 00 ROUTINE DECLARATIONS 


026026 
026030 


010200 
00 


00 r 
062700 037022" ‘ 
042716 177770 
012746 000001 
004767 000000G 

000016 
005203 
020366 000010 
052704 002000 
003 


15 
016701 036772" 
016166 000020 000022 


016701 036772" 
010061 000020 

012700 000001 

001411 

016701 000000G 
005066 000032 


066700 036770" 
066600 000012 


016701 036772" 


016166 000046 000020 
‘026066 006626" 000020 


012746 002332" 
012746 000003 
0600 


104414 


oS: 
10$: 


11$: 


12$: 
13$: 


14$: 
15$: 


M 1 

21-Apr-1981 
21-Apr-1981 

R2,RO0 

RO 

RO 

RO 

#DEGRADE .MOD.REG,RO 

SP) 


R2,-(SP) 
#177770, (SP) 
#1,-(SP) 
(SP) ,=(SP) 


PC ,BL$PU2 
#16,SP 


R 
edie 
yh ta 


oR4 
ML.ADDR,R1 
20(R1) ,22¢(SP) 


24,R 
ML.ADDR,R1 
®t 


R3,RO 
COL .BASE ,RO 
eae 


R 

ML.ADDR,R1 

46(R1) ,20(SP) 
ee ewes 


54 
10 
“ eesete: 


R2,-(SP) 
R5,~-(SP) 
#A.B.PRINT,~(SP) 
#3,-(SP) 

SP,RO 

14 


TOPS=20 Bliss-16 V2(212) 
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; SEL.BNK,* 


; SEL.BNK,* 


ROW, NUM 
ROW.NUM,F INISH 


* ,PROM.ADRS 
COL .NUM 


; PROM.ADRS 


COL .NUM,PROM.ADRS 


%, 


L.REG 
PROM.ADRS ,MLREG 
MLREG,* 

* ,S$TMP2 
*, $$TMP1 


$$TMP 
$S$TMP1 


$$TMP2 


; COL.NUM,* 


*,ML.REG 
* ML .REG 


SEL .BNK,* 
ARR.SEL,* 


sP.* 
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SEQ 0220 


5263 


5260 
5252 


5268 
5270 


5272 
5273 


5274 


5276 


5279 


5280 


i ey 
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; Rout ime Size: 
; Maximum stack 


N 1 
21-Apr-1981 08:40:22 


ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 


MOV R2,RO 

ASR RO 

ASR RO 

ASR RO 
037622° ADD #DEGRADE .MOD.REG,RO 

MOV RO, (SP) 

MOV R2,-(SP) 
177770 BIC #177770, (SP) 
000001 MOV #1,-(SP) 

MOV (SP?) ,=(S5P) 
000000G JSR PC ,BLSPU2 
000016 ADD #16,SP 

16%: INC R3 
000010 if 478: CMP R3,10(SP) 

BLE 11$ 

INC R2 
000003 CMP R2, 43 

BG? 18$ 
177262 JMP =———s33$ 
036772" 18$: MOV ML.ADDR,R1 
000010 000016 MOY 10(R1),16(SP) 
000016 MOV 16(SP) ,RO 
0000460 BISB #40,R0 
036772° MOV ML.ADDR,R1 
000010 MOV RO,10(R1) 
036772" MOV ML.ADDR,R1 
006010 000014 MOV 10(R1),14¢SP) 
000014 MOV 14(SP),RO 
036776° MOV ML .DUT,R5 
177770 BIC #177770,R5 
000007 BICR «#7, RO 

BIS R5,RO 
036772" MOV ML.ADDR,R1 
000010 MOV RO,10(R1) 
000034 ADD #34,S5P 

RTS PC 

248 words 
depth per invocation: 27 words 


TOPS=20 Bliss=-16 V2(212) 
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SEL .BNK,* 


SEL.BNK,* 


COL .NUM 


: COL.NUM,FINISH 


SEL .ANK 
SEL.BNK, * 


* ML .REG 
ML .REG,MLREG 
* ,MLREG 


: MLREG,* 


*,ML REG 
ML .REG,MLREG 


; *,MLREG 
; *,MLREG 


; MLREG,* 


Ml 


Page 188 
SEQ 0221 


5281 
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! 
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| $ 5290 routine VER_ERROR_MASK (ARRSBNK_SEL, TSTED_BNK) : novalue = 
| 3 5291 begin 
1 3 5292 
i 3 5 es 
; 5294 ' FUNCTIONAL DESCRIPTION: VERIFY THE ERROR MASK 
° 5295 ! AFTER THE PROMS HAVE BEEN BLASTED AND THE PROMS ARE READ FOR A GOOD BLAST THE 
° 5296! SELECTED ARRAY IS WRITE CHECKED AGAIN AND MADE SURE THAT ALL BLASTED ROWS AND 
; sent COLUMNS HAVE BEEN SUCCESSFULLY BLASTED. 
: 5298! UNC ERRORS ARE NOT TOLERATED IN ANY BANK AND WARRENTS THE ARRAY TO BE REPLACED. 
3 5299 ! SINGLE CHIP FAILURES IN DEGRADE MODE BANKS IS TOLERATED AND DOES NOT CONSTITURE AN ERROR. 
; 5300 ! SINGLE CHIP FAILURES IN NON=DEGRADE NODE BANKS IS NOT TOLERATED AND WILL CAUSE AN 
° +) Be ERROR AND THAT THE ARRAY BE REPLACED. HOWEVER THE PROGRAM COULD BE RUN ON THE 
4 Sue ot SAME ARRAY IN HOPES OF FINDING AND MASKING THE ERROR. 
; Behe ON THE SECOND PASS BEFORE REPLACING THE ARRAY. 
; 5305 ! FORMAL PARAMETERS: 
; 5306 ! ARR$BNK_SEL : 
; Este STORES THE SELECTED ARRAYS ARRAY AND BANK SELECT NUMBERS 
; 5309 
3 5310 Local 
; 5311 BNK_NUM, 'STORES THE SELECTED BANK NUMBER 
; aai§ ARR_NUM; 'STORES THE SELECTED ARRAY NUMBER 
; ogig ARR_NUM = .ARR$BNK_SEL<.ARR_SEL_POS, ARRSSEL_SIZE>; !LOAD THE ARRAY NUMBER 
; agI9 incr SEL_BNK from 0 to .TSTED_BNK - 1 do 'VERIFY ALL BANKS 
; egin 
; ats BNK_NUM = .ARRSBNK_SEL<.BNK_SEL_POS, BNKSSEL_SIZE>; 'LOAD THE BANK SEL NUMBER 
; 5320 if .BAD_BNK_REG C.BNK_NUM] 'ITS THIS A BAD BANK 
: 5321 then 
; 5322 begin 
. 3352 FB_CHIPS (.ARRSBNK_SEL); 'FIND ANY BAD BITS 
; 5325 if S_CHIP_TBL (ZERO) geq ZERO 'WERE ANY BAD BITS FOUND 
; 5326 then 
3 5327 begin 
z 5328 
; 5329 if .FLG_REG CF_UNC_ERR_FLGJ 'WAS IT AN UNC ERROR 
; 5330 then 
: 5331 begin 
M4 5332 ERRSF (ERR_11, UNC_ERR_MSG, 0); 'REPORT THE ERROR 
: 5333 PRINTB (REPB_PRINT, .ARR_NUM) ; 
; 5334 end 
: 5335 else 
; aa30 begin 
; 5338 if not .DEGRADE_MOD_REG C.BNK_NUM] !IS THIS NOT A DEGRADE MODE BANK 
: 5339 then 
; 5340 begin 
: 5341 ERRSF (ERR_12, MEM_ERR_MSG, 0); !REPORT THE ERROR 








C 


f | 
j 2 | 
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| REV A PATCH 00 ROUTINE DECLARATIONS 21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI.7 (55) SEQ 0223 | 
| 8 5342 PRINTB (REP_PRINT, .ARR_NUM) ; | 
13 5343 end; | 
is 5344 
Py 5345 end; 
: 5346 
5 5347 end; 
; 5348 
OS - 
; 5351 ARR$BNK_SEL = -ARR$BNK_SEL + .INC_i3NK; 'SELECT THE NEXT BANK 
; 5352 end; 
3 5353 
; 5354 end; 
ye VER.ERROR.MASK ROUTINE DECLARATIONS 
026224 004167 000000G VER. ERROR .MASK 
JSR R1,$SAVE4 ; 5290 
026230 012746 000020 MOV #20, a : 5314 
026234 060616 ADD SP, (SP ; ARRSBNK.SEL,* 
026236 016746 037010" MOV ARR. SFL. :POS, -(SP) 
026242 012746 000004 MOV #4, — 
026246 005046 CLR -(§P 
026250 004767 000000G JSR Pe BL $GT2 
026254 010004 MOV RO,R4 ; *,ARR.NUM 
026256 005001 CLR R1 ; SEL.BNK 5316 
026260 000533 BR 6$ 
026262 012746 000030 1$: MOV #30,-(SP) : 5318 
026266 060616 ADD SP, (SP) ; ARRSBNK.SEL,* 
026270 016746 037012" MOV BNK.SEL.POS,-(SP) 
026274 012746 000002 MOV #2,-(SP) 
026300 005046 CLR -(SP) 
026302 004767 000000G JSR PC, ,BL$GT2 
010002 MOV RO,R2 : *,BNK.NUM 
026310 010203 MOV R2,R3 ; BNK.NUM,* 5320 
026312 006203 ASR R3 
026314 00620 ASR R3 
026316 006203 ASR R3 
026320 010346 MOV R3,- 
026322 062716 037016' ADD #BAD. 1 “4 REG, (SP) 
026326 010246 MOV R2,-(SP) ; BNK.NUM,* 
026330 042716 177770 BIC #177770. (SP) 
026334 012746 000001 MOV #1,-(SP) 
026340 005046 CLR -(§P) 
026342 004767 000000G JSR PC ,BL$GT2 
026346 062706 000010 ADD #10,SP 
026352 006000 ROR RO 
026354 103067 BCC 5$ 
026356 016646 000036 MOV 36(SP) ,-(SP) : ARRSBNK.SEL,* 5323 
026362 004767 174206 JSR PC,FB.CHIPS é 
005046 CLR -(SP) ; 5325 


026366 04 
026370 004767 165224 JSR PC,S.CHIP.TBL 





; Routine Size: j 
Maximum stack depth per invocation: 


ROUTINE DECLARATIONS 


000002 037020" 


002246" 
000002 


037022" 


177770 
000001 


000000G 
000010 


002246" 
000002 


000006 
Scpig" emose 
000024 
000010 


112 words 


2$: 


18 words 


D 


2 
21-Apr-1981 08:40:22 
21-Apr-1981 08:19:06 
(SP) + 
RO 
4$ 
#2,FLG.REG 
2$ 
54 
13 
apres 
R4,-(SP) 
wREP _ -(SP) 
#2,- 
Se°RO- 
14 


R3,-(SP) 
DEGRADE. -MOD.REG, (SP) 


R2,-(SP 
#177770, (SP) 
#1,-(SP) 
-(§P) 

2 ig 


R * 

4$ 

54 

MEM. ERR.MSG 


0 

R4,~-(SP) 
#REP.PRINT,~(SP) 
#2,-(SP) 

SP,RO 

14 

#6,SP 


(SP) + 
INC.BNK , 36(SP) 
#10,SP 


R1 
R1,24(SP) 
1$ 
#10,SP 
PC 
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; ARR.NUM,* 


; -.* 


; BNK.NUM,* 


; ARR.NUM,* 


; 


; *,ARRSBNK.SEL 


SEL .BNK 
; SEL.BNK,TSTED.BNK 
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SEQ 0224 


5329 
5332 


5333 


5331 
5338 


5341 
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Zsbttl ‘INITIALIZE CODE SECTION 
; INITIALIZE CODE SECTION 


BGNINIT; 
Local 
iHARDWARE PTABLE ENTRY TEMPORARY STORAGE LOCATIONS 
SYS_HWTBL, ‘PROM MAINT THE ENTIRE SYSTEM 
ARR_HWTBL . iPROM MAINT A SINGLE ARRAY MODULE 
BNK~HWTBL . iPROM MAINT A SINGLE BANK 
BNK~NO_HWTBL, iBANK NUMBER TO BE PROM MAINT 
ARR”NO_HWTBL, i ARRAY MODULE NUMBER TO BE PROM MAINT 
RH_BASE_HWIBL, 'RH BASE REGISTER ADDRESS 
DUT_HWTBL, iDIVICE NUMBER TO BE PROM MAINT 
OPTYON_HWIBL, iDRIVE OPTION CODE 1 = ML-11A, 0 = ML-11B 
CORRECT _HWIBL, iARE THE PROGRAM PARAMETERS CORRECT FLAG 
PTBL_PTR, iHARDWARE PTABLE POINTER 
LUN; iSUPERVISOR LOGICAL UNIT NUMBER VARIABLE 
if .LSUNIT gtr ONE 'WHERE MORE ONE PTABLE BUILT 
tnen 
oeaer (ERR_9, HQ_ERR_MSG, 0); 'REPORT THE ERROR 
PRINTB (ONE_MSG, GTR_MSG); iREPORT WHAT THE ERROR IS 
PRINTB (ONE~MSG, UNIT_SEL_MSG); IREPORT THAT THE FIRST PTABLE BUILT WILL BE USED 
end; 
L$UNIT = 0: ‘ONLY ONE DRIVE IS TO BE TESTED 


i BECAUSE OF THE INPACT OF THIS PROGRAM ON THE 
i ML-11 SYSTEM ONLY THE START COMMAND WILL BE 
| RECOGNIZED TO START PROGRAM EXECUTION 


if not (READEF (EF_START)) 'WAS THE START COMMAND USED TO START THE PROGRAM 


then 
tks (ERR_1, ILL_CMD_MSG, 0); 'REPORT THE ERROR 
PRINTB (ONE MSG, START _MSG): 'REPORT WHAT THE ERROR IS 
DODU (.L$UNTT); 'DROP THIS UNIT 
ae 'GO TO THE CLEAN UP CODE SECTION 
end: 


i THE CONTENTS OF THE FIRST P-TABLE BUILT (LUN O ) 
' WILL BE THE SELECTED PROGRAN PARAMETERS. ALL OTHER REMAINING ; 
' P=TABLES BUILT WILL BE IGNORED. 


'UN = ZERO; 


ge 192 
sea 0225 


BSKEL4 
| REV A PATCH 00 


INIT 


1F C 
then 


else 


. ¢ 
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GPHARD (.LUN, PTBL_PTR)) eql ZERO 'IS THE FIRST PTABLE PRESENT 


begin 
ERRSF (ERR_3, LUN_MISS_MSG, 0); 'REPORT THE ERROR 
PRINTB (ONE_MSG, SUPRES_MSG); 'REPORT SUPPERSS MESSAGE 


PRINTB (ONE_MSG, RET_DRS_MSG); ‘REPORT RETURNING TO DRS> 

DODU (.LSUNTT); ‘DROP THIS UNIT 

DOCLN; 'GO TO THE DROP UNIT CODE SECTION 
end 

begin 


i INPUT TO THE PROGRAM THE HARDWARE PTABLE 
i ENTRIES AND STORE THEM INTO THE TEMPORARY 
| STORAGE LOCATIONS 


< = .((.PTBL_PTR) + %0'0 
ARRHWIBL = .((.PTBLPTR) + Zor? 
% 


DUT HWTBL = .((.PTBL_PTR) + %o'1 


CORRECT_HWTBL = .((.PTBL_PTR) + 
end; 


ie) 

a < & e fe) 

RH BASE_HWTBL = .((.PTBL_PTR) + x 
Oo 

% 


FORE WE START, LETS SEE IF THE OPERATOR — 


ENTERED HIS PARAMETERS CORRECTLY. 


BE 


if not .CORRECT_HWTBL 


!ARE THE INPUTED PARAMETERS CORRECT 


then 


begin 

PRINTB (LFS); 'PRINT SOME LINE FEEDS TO BE NEAT 
PRINTB (ONE_MSG, SUPRES_MSG); 'PRINT THE SUPPRESS MESSAGE 
PRINTB (ONE_MSG, RET_DRS_MSG); 'PRINT RETURNING TO DRS> MESSAGE 


DODU (.LSUNTT); 'DROP THIS UNIT 
ts 'GO TO THE CLEAN UP CODE SECTION 
en 
else 
begin 


BUILD THE RUN TIME PARAMETERS 


ARR$BNK_SEL = ZEROES; ‘LOAD THE ARRAY & BANK SELECT VARIABLE WITH ZEROES 
ML_ADDR™= .RH_BASE_HWTBL; iLOAD THE ML~11 BASE ADDRESS INTO ML_ADDR 
MLDUT = .DUT_HWTBL; ‘LOAD ML_DUT WITH THE DIVICES DRIVE SELECT NUMBER 


i SET UP 16K OR 64K MOS RAM RUN TIME PARAMETERS 
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. 


INITIALIZE CODE SECTION 


if .OPTION_HWTBL eql ML11A 
then 


end 


INCARR = % 
BNK~NUM_SEC 
ARR” SEL_POS 
BNK “SEL “POS 

“CHIP_COL = 256; 


isa 


BUILD THE RUN TIME PARAMETER FOR MASKING 
EITHER THE ENTIRE SYSTEM, AN ENTIRE ARRAY 
A SINGLE BANK. 


if .SYS_HWTBL 
then 


in 
ORT RH (MLCS2, DRV_SEL, .ML_D 
LST-TSTED_ARR = .ML_ADDR caches €171NGI 
RAND_PASS = 4; 
TSTEB_BNK = 4; 
end 
else 
begin 


if .ARR_HWTBL 
then 


TSTED_BN 


ARREBRK SEL<. ARR_ SEL_POS, ARRSSEL_ SIZE> = .ARR_NO_HWITBL; 


G 2 
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‘1S THIS A ML=11A OPTION 76K PARTS 


'LOAD THE COLUMN BASE OFFSET 

'LOAD THE BANK INCREMENT VARIABLE 

'LOAD THE ARRAY INCREMENT VARIABLE 

'LOAD THE BANKS NUMBER OF SECTORS VARIABLE 
'LOAD THE ARRAY SELECT POSITION CONSTANT 
'LOAT THE BANK SELECT POSITION CONSTANT 
‘LOAD THE MAXIMUM COLUMNS PER CHIP VARIABLE 


‘LOAD THE COLUMN BASE OFFSET VARIABLE 

'LOAD THE BANK INCREMENT VARIABLE 

'LOAD THE ARRAY INCREMENT VARIABLE 

'LOAD THE BANKS NUMBER OF SECTORS VARIABLE 

'LOAD THE ARRAY SELECTION POSITION CONSTANT 
'LOAD THE BANK SELECTION POSITION CONSTANT 

‘LOAD THE MAXIMUM COLUMNS PER CHIP VARIABLE 


OR 


'TS THE ENTIRE ML-11 SYSTEM TO BE PROM MAINT 


: SELECT THE DRIVE UNDER TEST 

READ AND SAVE THE SIZING 
‘DO’ TWO RANDOM DATA PASSES 
'TEST FOUR BANKS PER ARRAY 


'IS A SINGLE ARRAY TO BE PROM MAINT 


‘LOAD LOOP VARIABLE TO TEST ONLY ONE ARRAY 
. DO THREE PASSES OF RANDOM . id 

'TEST ALL FOUR BANKS ON THE A 

SELECT AWHICH ARRAY TO TEST 
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oO 
N 
& 
w 
N 
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—_ 


PU PSVSVAT STASI STIS 
PUPS SIA SI SISISIUT 


Monon) @ 4 es es es ew 
MO OONAUE WI 


5525 


012746 


INITIALIZE CODE SECTION 


if .BNK_HWTBL 
then 
bef TSTED_ARR_= 0; 
RAND Pas * 43; 
TSTEB_B 'TEST ONLY ONE 
ARRSBAK SEL<, TARR. SEL_POS, coment = 
ARRSBNK_SEL<.BNK_SEL_POS, BNK$SEL SIZE> = 
end 
else 
begin 
| THE HARDWARE QUESTIONS WERE NOT ANSWERED 
' CORRECTLY. MASKING EITHER A SYSTEM, ARRAY 
' OR BANK WAS NOT SELECTED. REPORT THE ERROR 
' AND RERTURN TO DRS>. 
ERRSF (ERR 2, HOQ_ERR MSG. 0); 
PRINTB (ONE _MSG, “HQ_MSG 
PRINTB (ONE_MSG, eee. sg) : 
PRINTB (ONE_MSG, RET_DRS _MSG) ; 
DODU (.LSUNTT); iDRGP THIS UNIT 
DOCLN; 
end 
end 
end 
end 
ENDINIT; 
.S LINIT INITIALIZE CODE SECTION 
00C000G LINIT: JSR R1,$SAVE5 
000014 SUB #14,SP 
0000006 000001 CMP LSUNIT,#1 
BLE 1$ 
TRAP 54 
.WORD 11 
.WORD HQ.ERR.MSG 
WORD 0 
000560" MOV #GTR.MSG,-(SP) 
001630" MOV MONE .MSG,=(SP) 
000002 MOV #2,-(SP) 
MOV 4 
TRAP 14 
000634" MOV MUNIT.SEL.MSG, (SP) 
001630" MOV #ONE .MSG,=(SP) 


H 2 
21-Apr-1981 08:40:22 
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'1S A SINGLE BANK TO BE PROM MAINT 


'LOAD LOOP VARIABLE TO TEST ai ONE ARRAY 
'DO FIVE PASSES OF RANDOM DA 


-ARR_N 


WTBL; 
ECT WHICH ARRAY” TO PROM MAINT 


- BNK_NO_H 


HWTBL; 
'SELECT WHICH BANK TO PROM MAINT 


'REPORT THE ERROR 


'REPORT WHAT THE ERROR IS 


:PRINT SUPPRESS ME SSAGE 


:PRINT = byes tag TO DRS> MESSAGE 


'GO TO THE CLEAN UP CODE SECTION 


(56) 


ge 195 
sO 0228 


5354 
5377 
5380 


5381 


5382 


———— ————————————————————— ——————— a 


BSKELS 
REV A PATCH 00 


SRS aie an ra ra a i pe 
Ss shee tnsesenteesinnentensteewsennettten 


012746 


INITIALIZE CODE SECTION 


000002 


000012 
0000006 
000040 


000104" 
001630" 
000002 


0000006 


000006 


000330" 
001630" 
000002 


000370° 


000016 


000004 
000002 


1$: 


2s: 


3$: 





ee. 
21-Apr-1981 
21-Apr-1981 


#2,-(SP) 


° 


nN 
*U 


een 


ASTART .MSG,=(SP) 
MONE .MSG,=-(SP) 
#2,-(SP) 

SP,RO 

14 

LSUNIT,RO 

51 

as 

#6,SP 

RO 

4 

RO,R5 

3$ 

54 

3 
Pertenece 


ong AS MSG,-(SP) 
#ONE .MSG,=(SP) 
#2, oat 


. 


AMRET.DRS.MSG, (SP) 
MONE .MSG,=-(SP) 
oo 


14 
LSUNIT,RO 
51 

4G 

#12,SP 

4$ 

(R5) ,6(SP) 


ee et eeesene ee 7 eaten —_— 


TOPS=20 Bliss=16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (56) 


SP,* 


SP,* 


LUN 
*,PTBL.PTR 


. SP,* 


SP,* 


PTBL.PTR,SYS.HWTBL 
*(PTBL.PTR) ,ARR.HWITBL 
*(PTBL.PTR) .BNK.HWIBL 
*(PTBL.PTR) ,BNK.NO.HWTBL 
*(PTBL.PTR) ,ARR.NO.HWITBL 
*(PTBL.PTR) ,RH.BASE .HWTBL 
*(PTBL.PTR) ,DUT..HWTBL 
*(PTBL.PTR) ,OPT ION. HWTBL 


196 
sea 0229 


5415 


42 
21-Apr-1981 08:40:22 


| BSKELS TOPS=20 Bliss-16 V2(212) Page 197 
| REV A PATCH 00 INITIALIZE CODE SECTION 21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BLI.1 (56) SEQ 0230 
| 027102 016505 000020 MOV 20(R5),R5 ; *(PTBL.PTR) , CORRECT. HWTBL 5432 
| 027106 006005 4$: ROR RS + CORRECT.HWTBL 5440 
027110 103435 BLO 5$ 
027112 012746 001700" MOV ALFS,=-(SP) : 5443 
027116 012746 000001 MOV #1,-(SP) 
027122 010600 MOV ‘ ; SP,* 
027124 104414 TRAP 
027126 012716 000330' MOV ASUPRES .MSG, (SP) : 5444 
027132 012746 001630" MOV #ONE .MSG,=(SP) 
027136 012746 000002 MOV #2,-(SP) 
027142 010600 MOV SP,RO : SP,* 
027144 104414 TRAP 14 
027146 012716 000370" MOV #RET.DRS.MSG, (SP) : 5445 
027152 012746 001630' MOV #ONE .MSG,-(SP) 
027156 012746 000002 MOV #2,-(SP) 
027162 010600 MOV : : SP,* 
027164 104414 TRAP 14 
027166 016700 0000006 MOV LSUNIT,RO ; 5446 
027172 104451 TRAP 51 
027174 104444 TRAP 44 
027176 062706 000014 ADD #14,SP : 5442 
027202 000537 BR $ : 5440 
027204 005067 037000" S$: CLR ARR$SBNK. SEL : 5454 
027210 010267 036772" MOV R2,ML.ADDR > RH.BASE.HWTBL,* 5455 
027214 010367 036776" MOV R3,ML.DUT + DUT.HWTBL,* 5456 
027220 005304 DEC R4 + OPTION. HWTBL 5461 
027222 1026 BNE 6$ 
027224 012767 000200 036770" MOV #200,COL.BASE ; 5464 
027232 012767 000200 037004" MOV #200, INC.BNK : 5465 
027240 012767 001000 037006" MOV #1000, INC.ARR : 5466 
027246 012767 000177 037014' MOV #177,BNK.NUM. SEC : 5467 
027254 012767 000011 037010" MOV #11,ARR.SEL.POS : 5468 
027262 012767 000007 037012' MOV #7,BNK.SEL.POS : 5469 
027270 012767 000200 036774’ MOV #200,MAX.CHIP.COL : 5470 
027276 25 BR 7$ : 5461 
27300 012767 000400 036770' 6$: MOV #400, COL .BASE : 5474 
027306 012767 001000 037004" MOV #1000, INC.BNK 3 5475 
027314 012767 004000 037006" MOV #4000, INC. ARR : 547 
027322 012767 000777 037014' MOV #777,BNK.NUM. SEC : 547 
027330 012767 000013 037010" MOV #13,ARR.SEL.POS : 5478 
027336 012767 000011 037012" MOV #11,BNK.SEL.POS : 5479 
027344 012767 000400 036774" MOV #400,MAX.CHIP.COL : 548 
027352 032766 000006 7$: BIT #1,6(SP) > *,SYS.HWTBL 548 
27360 001451 BEQ 9$ 
027362 016705 036772" MOV ML ..ADDR,R5S : 5492 
27366 016566 000010 000012 MOV 10(R5),12(SP) > *,ML.REG 
027374 6604 00001 MOV 12(SP) ,R4 > ML.REG,MLREG 
027400 016705 036776" MOV ML.DUT,RS 
27404 042705 177770 BIC #177770,R5 
! 027410 142704 000007 BICB #7 RS ; *,MLREG 
027414 050504 BIS R5,R4 > *,MLREG 
027416 016705 036772" MOV ML.ADDR,RS 


012716 
012746 


INITIALIZE CODE SECTION 


000070 
036772 
000024 
000010 


177740 


037032" 
000004 
000004 


000001 


037032" 
000010 


000004 
0000006 
000001 


037032" 
000015 
000001 
037000" 
037010° 
000004 


000000G 
037000" 
037012" 
000002 


000014 
0000006 


0002 
001630" 
000002 


000330* 
001630" 


000010 


037034" 
037092" 


000004 


037034" 
037002" 


000002 


037034" 
037002" 


8$: 
9$: 


10$: 


11$: 


K 2 
21-Apr-19 
21-Apr-19 


R4,10(R5) 

Mi .ADDR,R5 
24(R5), iocsp) 
10(SP),R 

R5 


R5 
R5 


R5 
#177740,R5 


R5 
R5,LST.TSTEL.ARR 
#4,RAND.PASS 

#4, TSTED.BNK 


14$ 

#1,4(SP) 

10$ 
LST.TSTED.ARR 
#10,RAND.PASS 
#4,TSTED.BNK 
MHARRSBNK SEL ,- (SP) 
ARR.SEL.POS,-(SP) 
#4 ,-(SP) 

R1,-(SP) 

PC ,BL$PU2 

13$ 


#1,2(SP) 
11$ 


LST.TSTED.ARR 
#15,RAND.PASS 
#1,TSTED.BNK 
MARRSBNK SEL .- (SP) 
geet ater 


@Qoo 
— os 
Qo 
Goce 
IR 
woo 
on 
an 


#2,-(SP 
14(SP) ,-(SP) 
PC ,BL$PU2 
12$ 

54 

2 

paste 
#HQ.MSG,=(SP) 
#ONE .MSG,~(SP) 
#2,~(SP) 
ne 


: 
MSUPRES .MSG, (SP) 
#ONE .MSG,~(SP) 


TOPS=20 Bliss=16 V2(212) 
PA:<NEALE>PMSKL4.BL1.1 (56) 


; MLREG,* 


; *,ML.REG 
; ML.REG,* 


* ,ARR.HWTBL 


; ARR.NO.HWTBL,* 


* ,BNK .HWTBL 


ARR.NO.HWTBL,* 


BNK .NO.HWTBL , * 


SP,* 


Page 198 
SEQ 0231 


5493 


5519 


5509 
5530 


5531 


5532 


027720 


027774 


; Routine Size: 
; Maximum stack 


027776 
030002 


930004 000207 


‘4 Rout ine Size: 
; Maximum stack 


| 

027756 
027760 
027764 
027770 


BSKELS 
REV A PATCH 00 


012746 


004767 
104411 


INITIALIZE CODE SECTION 


000002 

000370" 

001630" 

000002 

000000G 

000006 12$: 

000010 13$: 

000014 14$: 
325 words 

depth per invocation: 19 words 
176562 LSINIT:: 
4 words 

depth per invocation: 0 words 


- SBTTL 
SR 
TRAP 
RTS 


qj 


eS. 

21-Apr-198 
21-Apr-198 

#2,-(SP.) 

SP,RO 

14 


AMRET.DRS.MSG, (SP) 
HONE .MSG.=(SP) 
Naa 


—_—— 
oO 
60.00 
aw 


° 


14 
L$UNIT,RO 
51 


44 
#6,SP 
#10,SP 
#14,SP 
PC 


11 
PC 


yg OF aretha CODE SECTION 


TOPS=20 Bliss=16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (56) 


: SP,* 


: +," 


Pa 199 
SEO 0232 


5533 


5542 


BSKELS 
REV A PATCH 00 


Se Be Be Be Be Oe Se Be 


vl 
Mm 


MAASAI WUT UT 
DAA ASTIAIAIUTUT VI 


MAIN PROM MAINT CONTROL CODE 

%sbttl "MAIN PROM MAINT CONTROL CODE" 
MAIN PROM MAINT CONTROL CODE 
BGNTST; 

Local 


TEMP_TSTED_BNK, 
TEMP_ARRSBNK_ SEL; 


i PROMPT THE OPERATOR THAT THE 
i PROM MAINTANENCE PROGRAM HAS BEGUN 
i AND WHICH DRIVE IS SELECTED. 


1 

! 

! 

! 

' 

PRINTB (ONE_MSG, BGN_MSG) ; 
PRINTB (DRV_SEL “PRINT, ML _DUT); 


THIS OUTER LOOP WILL PM ALL SELECTED 


M 2 
21-Apr-19 


8 TOPS=20 Bliss-16 V2(212) Page 200 
21-Apr=-198 


2 
:06 PA:<NEALE>PMSKL4.BLI.1 (57) SEQ 0233 


—_— 
oo 
Goco 


' TEMPORARY. STORAGE FOR THE NUMBER OF TESTED BANKS PER ARRAY 
i TEMPORARY STORAGE FOR THE ARRAY & BANK SELECT VARIABLE 


i ARRAYS. IT WILL-.PM FROM EITHER ONE ARRAY TO THE SELECTED 


i 
' 
DRIVES MAX ARRAYS. PRESENT. 


incr ARR_SEL from 0 to west, FSTED ARR do 
ped 
BREA 
DEGRADE _MOD_REG = ZEROES; 
BAD _BNK “REG = ZEROES; 
FLG_REG = ZEROES; 
I ie TBL (); 
TEMP_TSTED_BNK = .TSTE 
TEMP “ARR$BNK_SEL = SARRSBNK. SEL; 


!'TEST ALL SELECTED ARRAYS 


'CLEAR THE DEGRADE MODE REGISTER 

'CLEAR THE BAD BANK REGISTERS FLAGS 

'CLEAR THE FLAG REGISTER 

'INTI THE BLAST TABLE 

‘LOAD NUMBER OF TESTED BANKS INTO TEMP STORAGE 
'LOAD THE ARRAY & BANK SEL INTO TEMP STORAGE 


THIS INNER LOOP WILL FIND NEW FAILING Rows 5 & 
COLUMNS WITHIN BAD CHIPS IN THE BANKS OF THE. SELECTED 


ARRAYS. gy 4 BANKS, IF PM* ING 


SYS/ARRAY © 


i 

: OR 1 BANK IF PM'ING 4 SINGLE BANK WILL BE TESTED. 
i 

i 


| PROMPT THE OPERATOR WHICH ARRAY IS 
PRINTB (ARR_SEL_PRINT, .ARR$BNK_SEL< 
do 


PRESENTLY Piri 


-ARR_SEL_POS, ARRSSEL_SIZE>); 


‘PROM MAINT ALL THE FAILING CHIPS IN THIS BANK 


BRINTB (BNK_SEL_PRINT, .TEMP_ARRSBNK_ SEL<. BNK_SEL_POS, BNK$SEL_ ht et !PRINT 


FB_CHIPS (.TEMP-ARRSBNK_ SEL); 

PM~THIS_BANK (. TEMP_ Stank SEL): 
TEMP_ARR$BNK SEL = TEMP ARRSBNK_ 
TEMP_TSTED_BNK = TEMP_ TSTED_BNK ~ 


'F IND THE BAD CHIPS IN THIS B 
PROM MAINT THE BAD CHIPS IN THIS BANK 
SEL + .IN ‘INCREMENT TO THE NEXT BANK 
1; DEC REMENT THE TESTED BANK COUNT 


end 
until (, TEMP_TSTED_BNK eql ZERO) or (.FLG_REG [Ff _ABORT_ARRAY]); 'REPEAT UNTIL ALL BANKS ARE TESTED 





_———}K—$—$————$———$—————————————— maa 


| cctanaineniineateniemtimenneemnemnneemmeneee sr ey 


Eee | 
j 
} 


SKELS 


ee ee ee ee ee ee ee ee ee ee ee eee ee ee ee ee ee ee ee ee ee en ee ee ee ee ee ee ee ee ee ee ee Pee 


030030 
030032 


104414 
016716 


8 
REV A PATCH 00 MAIN PROM MAINT CONTROL CODE 


N 2 
21-Apr-198 
21-Apr-198 


—_ 
oo 
G00 
as 
oo 


:22 TOPS=20 Bliss-16 V2(212) 
6 PA:<NEALE>PMSKL4.BLI.1 (57) 


| THE BLAST TABLE HAS NOW BEEN LOADED WITH ALL 
' NEWLY FAILING ROWS AND COLUMNS WITHIN THIS TESTED ARRAY. 
1 


if 
the 


ARRSBNK_SEL = .ARRSBNK_SEL + .INC_ARR; 
end; 


.FLG_REG CF_ABORT_ARRAY)- 


n 
PRINTB (ONE_MSG, ABORT_MSG) | 
eise 


begin 
IN_BLAST_TBL (.ARR$BNK_SEL, .TSTED_BNK); 


if .BAD_BNK_REG eql ZERO 


hen 
PRINTB (ONE_MSG, NO_AD_MSG) 
else 
begin 
CAL_CHK_SUM ( 
BL_PROMS (. ARREBNK_ SEL); 


'WAS THE ABORT ARRAY FLAG SET DURING PROM MAINT 
!'REPORT THAT PROM MAINT FOR THIS ARRAY IS ABORTED 


!INTERIGATE THE BLAST TABLE 
!ARE THERE ANY ADDITIONAL ERRORS TO BLAST 
‘PRINT NO ADDITIONAL ERRORS MESSAGE 


!CALCULATE THE NEW PROM DATA CHECK SUMS 
'BLAST THE PROMS WITH THE NEWLY FAILING ROWS/COLS 


if .FLG_REG CF_D_CLK_TIME_OUT] then exitloop; 


VER_BLAST (.ARRSBNK_SEL); 
VER_ERROR _MASK (, ARR$BNK_SEL, 


end; 


end; 


i PROMPT THE OPERATOR THAT THE 
| PROGRAM EXECUTION HAS ENDED . 


PRINTB (ONE _MSG, END_MSG); 
PRINTB (ONE MSG, RET_DRS _MSG): 


DODU (.L$UNTT) 
DOCLN; 
ENDTST; 
.SBITL 
0000006 $11: JSR 
000052* MOV 
001630° MOV 
000002 MOV 
MOV 
TRAP 
C36776° MOY 


ve VERIFY THAT THE BLAST WAS SUCCESSFUL 
; D_BNK 
TERIEY THAT THE BLAST MASKED OUT THE NEW FAILING ROWS/COLS 


! INCREMENT TO THE NEXT ARRAY 


'REPORT THAT THE PROGRAM IS COMPLETED 
!PRINT RETURNING TO DRS> MESSAGE 
DROP THIS UNIT 

!GO TO THE CLEAR UP CODE SECTION 


$71 spit PROM MAINT CONTROL CODE 


R1,$SAVE4 

#8GN.MSG,~(SP) : 

#ONE .MSG,~(SP) 

#2,~(SP) ’ 

SP .RO Pa SP,* 


_M.DUT, (SP) : 


Page 201 
SEQ 0234 


5544 
5560 


5561 


| 2257 
| BSKELS 21-Apr-1981 08:40:22 TOPS=20 Bliss-16 V2(212) Page 202 
| REV A PATCH 00 MAIN PROM MAINT CONTROL CODE 21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BL!.1 (57) SEQ 0235 
| 030036 012746 001726" MOV #DRV.SEL.PRINT,-(SP) 
| 030042 012746 000002 MOV = #2, = (SP) 
| 030046 010600 MOV SP,RO : SP,* 
030050 104414 TRAP 14 
30052 016704 037032" MOV LST. TSTED.ARR,R4 ; 5568 
030056 005001 CLR R1 ; ARR.SEL 
030060 000572 &R 9$ 
030062 104422 1$: TRAP 22 : 5569 
030064 005067 037022" CLR DEGRADE .MOD .REG : 5571 
030070 005067 037016" CLR BAv.BNK.REG ; 5572 
030074 005067 037020' CLR FLG.REG ; 5573 
030100 767 154466 JSR PC,1.BLAST.TBL F 5574 
30104 016703 037002' MOV TSTED.BNK,R3 > *, TEMP. TSTED.BNK 5575 
030110 016702 037000° MOV ARR$SBNK .SEL ,R2 > *, TEMP. ARRSBNK. SE 5576 
030114 012746 037000' MOV HARRSBNK .SEL,-(SP) : 5586 
030120 016746 037010' MOV ARR. SEL.POS,-(SP) 
030124 012746 00000 MOV #4 ,-(SP) 
030130 005046 CLR -(SP) 
030132 004767 000000G JSR PC ,BL$GT2 
030136 010016 MOV RO, (SP) 
030140 012746 001770" MOV RARR. “$l. PRINT,-(SP) 
030144 012746 000002 MOV #2,- 
030150 010600 MOV +t : SP,* 
020152 104414 TRAP 14 
030154 010246 2$: MOV R2,- : TEMP. ARRSRNK.SE,* 5590 
030156 016746 037012" MOV BNK. s POS,-(SP) 
030162 012746 000002 MOV #2,-(SP) 
30166 005046 CLR -(SP) 
030170 004767 000000G JSR PC, BLSGT! 
030174 01007 MOV RO, (SP 
030176 012746 002036’ MOV #BNK. SEL. PRINT,-(SP) 
030202 012746 000002 MOV #2,-(SP) 
030206 010600 MOV SP.RO : SP,* 
030210 104414 TRAP 14 
030212 010216 MOV R2, (SP) ; TEMP. ARRSBNK.SE.* 5591 
030214 004767 172354 JSR PC,FB.CHIPS 
030220 010216 MOV P) : TEMP. ARRSBNK.SE,* 5592 
030222 004767 172416 JSR PC, PM. THIS.BANK 
030226 066702 037004' ADD INC.BNK,R2 : *, TEMP. ARRSBNK. SE 5593 
030232 005303 DEC R3 : TEMP. TSTED.BNK 5594 
030234 2706 000014 ADD #14,SP : 5589 
030240 005703 TST R3 : TEMP. TSTED.BNK 5596 
030242 1404 BEQ 3$ 
030244 032767 000100 037020' BIT #100, FLG.REG 
030252 00174 BEQ $ 
030254 032767 000100 037020' 3$: BIT #100,FLG.REG : 5603 
030262 001411 BEQ 4$ 
030264 012746 000766' MOV #ABORT.MSG,-(SP) : 5605 
030270 012746 001630" MOV HONE . MSG. -(SP) 
030274 012746 000002 MOV #2,-(SP) 
030300 010600 MOV SP,RO : SP.* 
030302 104414 TRAP 14 





; Routine Size: 
; Maximum stack 


MAIN PROM MAINT CONTROL CODE 


037000" 
037002" 


164254 
037016" 
001036" 


001630" 
000002 


172616 


037020" 
000022 


037000" 
174630 
037000' 
037002" 
175574 


037006" 037000" 
000022 


000274" 
001630" 
000002 


000370" 
001630" 
000002 


000000G 
000022 


169 words 


depth per invocation: 


4$: 


5$: 


6$: 


7$: 
8$: 


9$: 
10$: 


22 words 


ee. 
21-Apr-19 
21-Apr-19 


fo ote +) 
~~ 


8$ 
ARR$BNK . SEL ,= (SP) 
TSTED.BNK,=(SP) 
PC,IN.BLAST.TBL 
oe 


$ 
#NO.AD.MSG,=-(SP) 
HONE .MSG,-(SP) 
#2,-(SP) 

14 

(SP) + 

$ 


7 

PC,CAL.CHK.SUM 

ARRSBNK . SEL ,= (SP) 
ROMS 


#22,SP 
10$ 


PC, VER. ERROR.MASK 
(SP) + 
INC. ARR -ARRSBNK.. SEL 


R1,R4 


1$ 

#END .MSG, (SP) 
AONE .MSG,-(SP) 
#2,-(SP) 

SP,RO 

14 

#MRET.DRS. nee tis 
MONE. aoe . 
#2,-(SP) 

SP;RO 

14 

L$UNIT,RO 

51 


4a 
#22,SP 
PC 


TOPS=20 Bliss=16 V2(712) 
PA:<NEALE>PMSKL4.8L!. i (57) 


SP,* 


ARR.SEL 
ARR.SEL,* 


SP,* 


SP,* 


age 703 
s£0°0236 


5603 
5608 


5610 
5612 


5635 


5636 


5544 


echnaEIEE 


D 3 
BSKELS 21-Apr-1981 08:40:22 
REV A PATCH 00 MAIN PROM MAINT CONTROL CODE 21-Apr-1981 08:19:06 
.SBITL 11 MAIN PROM MAINT CONTROL CODE 
030530 004767 177252 T1 
030530 1$ JSR PC,$T1 
030534 1044 TRAP 66 
030536 0060 ROR RO 
030540 103773 BLO 1$ 
030542 000207 RTS PC 


; Routine Size: 6 words | : 
: Maximum stack depth per invocation: 0 words 


TOPS=20 Bliss=16 V2(212) 
PA:<NEALE>PMSKL4.BLI.1 (57) 


Page 204 
SEQ 0237 


5637 





Oe ee ee ee 
vi 
o 
> 
mw 





030544 


000207 


; Routine Size: 
; Maximum stack 


030642 004767 


030646 104412 
030650 000207 


; Routine Size: 
: Maximum stack 


; 5646 
; 5647 
: 5648 


CLEAN UP CODE SECTION 


Asbttl "CLEAN UP CODE SECTION’ 


CLEAN UP CODE SECTION 


ENDTLN; 


036772" 
000010 


000040 
036772" 
000010 
036772" 
000010 


036776" 
177770 
000007 


036772" 
000010 


31 words — : 
depth per invocation: 


177676 
4 words : ; 
depth per invocation: 


end 


eludom 


- SBTTL 


LCLEAN: MOV 


4 words 


-SBTTL 


LSCLEAN:: 


0 words 


JSR 
TRAP 
RTS 


. 2 
21-Apr-1981 08:40:22 
21-Apr-1981 08:19:06 


LCLEAN CLEAN UP CODE SECTION 
R1,-(SP) 


ML.ADDR ,RO 


ML. ADDR, RO 
? 10(RO) 
ADDR ,RO 
TOCRO). =(SP) 
(SP) +,R1 
ML .DUT ,RO 
#177770,RO 
#7 ,R1 
RO,R1 
ML .ADDR ,RO 
R1,10(RO) 
(SP) + 
(SP)+,R1 
PC 


LSCLEAN CLEAN UP CODE SECTION 


PC,LCLEAN 
12 
PC 


; OTS external references 


TOPS=20 Bliss=16 V2(212) 
PA: <NEALE>PMSKL4.BLI.1 (58) 


* ,MiL.REG 
ML .REG,MLREG 
* ,MLREG 


; MLREG,* 

; *,ML.REG 

; ML.REG,MLREG 
: *,MLREG 


: *,MLREG 
; MLREG,* 


Page 205 
SEO 0238 


5638 
5643 


5638 


5644 


ne 


a 
- BSKELS 21=Apr=1981 08:40:22 TOPS=20 Bliss=16 V2(212) Page 206 
REV & PATCH 00 CLEAN UP CODE SECTION 21-Apr-1981 08:19:06 PA:<NEALE>PMSKL4.BL!.17 (58) SEQ 0239 


.GLOBL BLS$GT2, $SAVES, S$SAVE4, SSAVE3 
.GLOBL $SAVE2, BifPU2, BL$GT1, BLSDIV 
.GLOBL BLSMOD 


Size: | 6357 code + 8970 data words 
; Run Time: — 01:28.3 

Flapsed Time: 02:51.9 

Memory Used: 131 pages 

Compilation Complete 


$$. AS] Pmskl2 432+& 
432+4 SEQ 0240 
Pmskl'3  432+4 ' 
432+4 
Pmskl4 445+4 
446+4 
| SSTMP Pmskl2 259+ 260+4 
259+ 260+4 


Pmskl3 259+ 260+4 
Pmskl4 272+ 27 3+# 


273+ 274+ 
| $$TMP1 Pmskl2 257+ 
257+ 
Pmskl3 257+ 
257+ 
Pmskl4 270+ 
271+ 


| S$TMP2 Pmskl2 252+ 25344 254+  263+4 
| pmskl3 959+ -353eH «354+ 6348 
Pmskl4 265+ 266+ 267+ 27648 
$BGNSEG Pmskl2 3344+# 459+ 484+ 496+ 662+ 
Pmskl3  334+# 459+ 484+ 496+ 662+ 
Pmskl4 347+ 472+ 497+ 509+ 675+ 
$BGNSUB Pmskl2 333+ 454+ 501+ 506+ 640+ 648+ 
Pmskl3 333+ «0454+ 501+ «= 506+ «= 6404 = 648+ 
Pmskl4 346+ 467+ 514+ 519+ 653+ 6614 
$BGNTST Pmskl2 3352+h 464+# 473+ 619+4 631+ 
Pmskl3 332+#@ 46444 473+ 61944 631+ 
Pmsk 14 345+# 477+# 486+ 632+# 644+ 


S$CODES Pmskl2 952+ 962+ 967+ 1003+ 1060+# 1061+ 1064+ 1074+ 1081+# 1082+ 1084+ 
952+ 962+ 967+ 1003+ 1060+# 1061+ 1064+ 1074+ 1081+# 1082+ 1084+ 
1094+ 1101+ 1134+ 1140 1143+ 1148+ 1150+ 1152+ 1157+ 1159% 1164+ 
1094+ 1101 1134+ 1140 1143+ 1148% 1150+ 1152+ 1157+ 1159+ 1164+ 
1166+ 1168% 1176+ 1178+ 1180+ 1182+ 1184+ 1186+ 1188+ 1190+ 1192+ 
1166+ 1168% 1176+ 1178+ 1180+ 1182+ 1184+ 1186+ 1188+ 1190+ 1192+ 
1194+ 1196+ 12014 1203+ 1205+ 1210+ 1215+ 1217+ 1219% 1221+ 1226+ 
1194+ 1196+ 1201+ 1203+ 1205+ 1219+ 1215+ 1217+ 12194 1221+ 1226+ 
1228+ 1230+ 1232+ 1234+ 1236+ 1238+ 1253+ 1259+  1283+# 1294+ 1302+ 
1228+ 1230+ 1232+ 1234+ 1236% 1238+ 1253+ 1259+ 1283+ 1294+ 1302+ 
1310+ 1317+ 1322+ 1348+ 1385+ 1420+ 1489+ 
1310* 1317+ 1322+ 1348+ 1385+ 1420+ 1489+ 
Pmski3 952+ 962+ 967+ 1003+ 1060+ 1061+ 1064+ 1074+ 1081+# 1082+ 1084+ 
952+ 962+ 967+ 1003+ 1060+ 1061+ 1064+ 1074+ 1081+# 1082+ 1084+ 
1094+ 1101 1134+ 1140 11434 1148+ 1150+ 1152 1157+ 1159+ 1164+ 
1094+ 1101% 1134+ 1140 1143+ 1148+ 1150¢ 1152¢ 1157+ 1159% 1164+ 
1166+ 1168+ 11764 11784 1180+ 1182+ 1184+ 1186+ 1188+ 1190+ 1192 
1166+ 1168+ 1176+ 1178 1180+ 1182+ 1184+ 1186* 1188+ 1390* 1192+ 


pd nnnn  ee 


$SEND_L INK 


$Gi OBS 


$L 


SOWNS 


SPOINT 


SPOPLEV 


SPUSHL EV 


Pmskl4 


ell ail sell a il ll 
——Nrrwowuowvo 
MOO@Os & 


MMMM - SP OOWWNNRN 
HOOCWVOOARN 


— ee so J = 3 


1095+4# 
1095+4 
1095+4 
1095+4 


WF OOON—ONMNMNN- 

++eeeereetereeee 

me ee ee ed eed od ee) 3 od od - 3 
2 SS OOWWPPNTY 
WOW SH KF HLWWNOO 
MR SWNOCOOS FWWNWE 
++ererererereee 


~~ 
NO 
++ 


RH ODL SF WWMNVWWNOO 
rr 


WWWRINMININ  — — — ODOWWNNNN 


ee ee et et et ot 


S+ 


3+4 
4+h 


9+ 
O+ 


WWNRNNDN 2 =  HOOWWNNMNITY 
DUIS = O OMI N NOOWWWOO 


me ee ek a ed a wd oo = ot 3 =) 3 


me ee ee et ed od td td = HH I 
— ed ed ed od 3 


me ek a ek a td to ot I ot J 


3 


$SEGNUM Pmski2  337+# 449+ 4724 483+ 
337+ = 449+ 472+ 483+ SEQ 0242 

Pmskl3 337+# 449+ 472+ 483+ 

337+#@ 449+ 472+ 483+ 


Pmskl4 350+# 462+ 485+ 496+ 
$SUBNUM Pmskl2 336+4 449+ 471+ 507+ 
| Pmskl3 336+# § 449+ 471+ 507+ 
Pmskl4 34944 462 484+ 520+ 
| $TSTNUM Pmskl2.  335e# «449% «474s 964 6284 6308 
Pmskt3 3350" 449 4744 «696+ 628% 6 808 
Pmskl4 348+# 462+  4B7+ 639+ 641+ 643+ 
$xv7$ Pmski2 383+ 391+ «= 392+ = 407+ a 16 
Pmskl3 383+ «3914 «= 393+ = 4074 = 16+ 
Pmskl4 396+ 404+ 405+ 420+ 429+ 


ZREMAINING Pmskl2 438+ 695+ 702+ 709+ 716+ 728+ 1055+ 
438+ 695+ 702+ 709+ 716+ 728+ 1055+ 

Pmskl3 438+ 695+ 702+ 709+ 716+ 728+ 1055+ 

438+ 695+ 702+ 709+ 716+ 728+ 1055+ 

Pmskl4 451+ 708+ 715+ 722+ 729+ 741+ 1068+ 


A Pmskl2 723+ 726+ 728+ 889+ 919+ 951+ 953+ 1467+ 
Pmskl\3 723+ 726+ 728+ 889+ 919+ 951+ 953+ 1467+ 
Pmski4 736+ 739+ 741+ 902+ 932+ 964+ 966+ 1480+ 3808 3848 3958 
4959 4976 5008 5031 5054 5073 5090 5 ; 
ABORT_MSG er sate 444 5009 5032 5055 5074 5091 5128 5141 5169 5198 
ADJACENT_CNT Pmskl4 3172 32044 32184 3240 
ADR Pmskl2 224+4 
Pmskl3  224+4 
Pmskl4 237+# 
ALL Pmskl2 1007+ 1508 
Pmskl3 1007+ 
Pmskl4 1020+ 16784 2526 


ALL_BAD Pmskl4 3630 36814 3683 3685 3696 3697 3698 3704 3705 3706 3715 
3631 36824 3684 3686 3697 3698 3699 3705 3706 3707 3716 


} 9008 
3718 37554 3757 3759 3762 3763 3764 3772 3822 38248 39014 
3902 3904 3907 3913 3916 3919 4017 4515 45208 4522 4525@ 
3905 3905 3908 3914 3917 3920 4018 4516 4521@ 4523 45268 
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———————_—_--- 


ALL_BAD_CNT 
AOE 
APTSTAT 


ARG 


ARRSBNK_SEL 


ARRSSEL_SIZE 
ARR_HwWTBL 
ARR_NO_HwTBL 
ARR_NUM 
ARR_SEL 
ARR_SEL_POS 


ARR_SEL_PRIN? 
ARR_TYP 
AS_PRINT 
ATTN 
ATTN_REG 

AU 


A_B_C_PRINT 
A_B_N_PRINT 
A_B_PRINT 





oP a ar er er eh A 
UMW UNIAN 
— = Na 
CONES WPRNO 


4393 
4394 


4434 
4435 


54684 


SEQ 0245 


5505 


- 5506 


—— il 


pra ne SS SO See eee 


A_HWTBL Pmskl2 1547 
1547 SEQ 0244 
B Pmskl2 903+ 951+ 953+ . 


Pmskl3 903+ 951+ 953+ 
Pmskl4 916+ 964+ 966+ 


BAD_BITS Pmskl4 4586 46514 4655 
4587 46524 4656 
BAD_BNK_REG Pmskl4 2003 42314 4967 5143 5319 55714 5609 
2004 42324 4968 5144 5320 55724 5610 
BAD_CHIP Pmskl4 2742 2787 2771 2798 2802 2809 2817 2824 2832 2839 2847 


BAE_REG Pmskl4 18904 
BAI Pmskl4 17554 
BA_PRINT Pmskl4 20804 2175 
BA_REG Pmskl4 17354 2242 2269 2379 2440 2489 
Sate sodas ts 2243 2270 2380 2441 2490 
Pmskl\3 351+# 1678 
Pmskl4  364+4 
BGNAUTO Pmskl2 357+# 
Pmskl3 357+# 
Pmskl4 370+# 


371+4 
BGNCLN Pmskl2 363+4 
363+4 
Pmskl3 363+4 
363+4 
Pmskl4  376+# 5642 
377+# 5643 
BGNDU Pmskl2 369+4 
369+4 
Pmskl3 369+# 1661 
369+4# 1661 
Pmskl4  382+4 
3835+4 
BGNHRD Pmskl2 1300+# 
1300+# 


Pmskl3 1300+# 1518 
1300+# 1518 


Pmskl4 


13tacn : 
+ 
Q 
_ BGNHW Pmskl2 1080+# 1544 conte: 
| 1080+# 1544 
Pmskl3 1080+4 
| 1080+4 
Pmskl4 1093+ 
1094+4 
SGNINIT Pmskl2 345+4 
345+4 
Pmskl3 345+ 
345+4 
Pmski4 358+4 5358 
359+4 5359 
BGNMSG Pmskl2 514+4 
514+4 
Pmskl3 514+4 
514+4 
Pmskl4 527+4 2170 
528+4 2171 
BGNPROT Pmsk 2 951+# 1594 
951+# 1594 
Pmskl3  951+4 
951+4 
Pmskl4 964+4 
965+4 
BGNPTAB Pmskl2 422+# 
422+# 
Pmskl3 422+# 
422+# 
Pmskl4 435+4 
436+4 
BGNRPT Pmskl2 375+4 
375+ 
Pmskl3 375+ 1627 
375+# 1627 
Pmskl4 388+4 
389+4 
BGNSEG Pmskl2 481+4 
: 481+4# 
Pmskl3 481+4 
481+4 
Pmskl4 494+4 
495+4 
BGNSE TUP Pmskl2 399+4 
399+4 
Pmskl3  399+4 
399+4 
Pmskl4 412+# 
413+4 
BGNSF T Pmskl2 1308+ 
1308+4 
Pmskl3 1308+# 1599 
1308+4 1599 
Pmskl4 1321+ 
1322+H 
BGNSRV Pmskl2 529+4# 
529+ 


Pmskl3 529+ 


BGNSUB 


BGNSW 


BGNTS7 


BGN_MSG 
BITO 


81T00 


BITO1 


BITO2 


BIT03 


BIT04 


BiT0S 


00.00 
0 00 00 Co 
++++ 


— hong @ @ anon eS 


22 ou 
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SEQ 0246 


| 
| 
| 
| 


A ey 
| 


BITO06 


BIT07 


B1T08 


&1T09 


8171 


BIT10 


81111 


BITIe 


Bi113 


Pmsk | 3 
Pmskl4 
Pmskl2 
Pmsk 13 
Pmsk l4 
Pmskl2 
Pmsk 3 
Pmskl4 
Pmskl2 
Pmsk 13 
Pmsk 14 
Pmskl2 
Pmsk 13 
Pmskl4 
Pmskl2 
Pmsk l 3 
Pmskl4 
Pmsk 12 


Pmskl3 - 


Pmsk 14 
Pmsk 2 
Pmsk | 3 
Pmskl46 
Pmskl2 
Pmsk 13 
Pmskl4 
Pmsk 12 
Pmsk 3 
Pmskt4 


Pmskl2 


1+4 


4+A 
5+ 


O+# 
O+# 


SEQ 0247 


i 

| 

| BIT15 

i 

| 

B12 
BIT3 
BIT4 
BITS 

BIT6 
BIT? 
BIT8 


BIT9 


BITS_TSTED 


Pmskl3 
Pmskl4 
Pmskl2 
Pmsk 3 
Pmsk 14 
Pmskl2 
Pmsk 3 
Pmsk 4 
Pmskl2 
Pmski3 
Pmskl4 
Pmskl2 
Pmskl3 
Pmskl4 
Pmskl2 
Pmskl3 
Pmskl4 
Pmskl2 
Pmsk 3 
Pmskl4 
Pmskl2 
Pmskl3 
Pmskl4 
Pmskl2 
Pmskl3 
Pmsk l4 
Pmskl2 
Pmskl3 
Pmskl4 
Pmskl4 


20 
4583 
4584 


46424 
46434 


B 4 
4658 46654 
4659 46664 


SEQ 0248 


C 4 
| BIT_O Pmskl4 16854 
| 16864 SEQ 0249 
| BIT Pmskl4 16864 
16874 
| BIT_10 Pmskl4 16954 
16964 
| BIT Pmskl4 16964 
| 16974 
| BIT_12 Pmskl4 16974 4756 
16984 4757 
BIT_13 Pmskl4 16984 4788 
16994 4789 
BIT_14 Pmskl4 1699 4819 
17004 4820 
BIT_15 Pmskl4 1700# 
17014 
BIT_2 Pmskl4 16874 
16884 
BIT_3 Pmskl4 16884 
16894 
BIT_4 Pmskl4 16894 
16904 
BIT_S Pmskl4 16904 
16914 
BIT_6 Pmskl4 16914 
16924 
BIT_7 Pmskl4 16924 
16934 
BIT_8 Pmskl4 16934 
16944 
BIT_9 Pmskl4 16944 
1695# 
BIT_CLR_OLD_NEW Pmskl4 4134* 4226 
4135* 4227 
BIT_INDEX Pmski4 3034 30824 3083 3170 32134 3215 3227 3228 3233 3234 3812 


3035 30834 3084 3171 32144 3216 3228 3229 3234 3235 3813 


BIT_SEL Pmskl4 3037 30474 30594 3077 
3038 30484 30604 3078 
BLSLAS Pmskl2 392+ 393+ 395+ 


BLAST_TBL Pmskl4 1982 2613 31334 31364 3464 4126 41284 41654 4243 4255 4272 


4416 441 
5029. 5051# 5052. SO070# 5071 5087# 5088 5096" 5097 5152 5157 
5030 5052" 5053 So71# 5072 5088# 5089 50974 5098 5153 5158 
5180 5186 
5181 5187 

BL_PROMS Pmskl4 5108* 5615 
5109* 5616 

BNK$SEL_ SIZE Pmski4 16014 3127 4221 4518 4929 5317 5518 5589 
16024 3128 4222 4519 4930 5318 5519 5590 


BNK_HWTBL 
BNK_NO_HWTBL 
BNK _NUM 


BNK_NUM_SEC 


BNK_SEL 


BNK_SEL_POS 
BNK_SEL_PRINT 
30E 


BREAK 


BRE SET 


BSKEL2 
BSKEL3 
BSKEL4 
BUF _ INDEX 
B_0 

B_! 

B_10 


Pmskl4 


Pmskl4 


Pmsk 14 
Pmsk 4 
Pmskl2 
Pmskl3 
Pmsk 4 
Pmskl2 
Pmskl3 
Pmskl4 
Pmskl2 
Pmsk 3 
Pmsk 14 
Pmskl2 
Pmskl3 
Pmskl4 
Pmskl4 
Pmsk 4 
Pmsk 14 
Pmskl4 


5366 54254 5510 
5367 54264 5511 
5367 54264 5518 
5368 54274 5519 
3125 31274 3133 
3126 31284 3134 
4165 4166 4212 
4166 4167 4213 
4272 4276 4285 


2292 22964 2305 
2293 2297# 2306 


3071 
3072 


4616 
4617 


2307 
2308 


4745 
4746 


4777 
4778 


4808 
4809 


4645 
4646 


4908 
4909 


4648 
4649 


5569 
5570 


4651 
4652 


SEQ 0250 


18464 
B_12 Pmskl4 18464 
18474 
B13 Pmskl4 18474 
18484 
BG Pmskl4 18484 
18494 
B15 Pmskl4 18494 
| 1850# 
| B16 Pmski4 18544 
| 18554 
| B17 Pmskl4 18554 
18564 
B18 Pmskl4 18564 
18574 
B_19 Pmskl4 1857# 
18584 
B_2 Pmskl4 18364 
18374 
B_20 Pmskl4 18584 
18594 
B_21 Pmskl4 18594 
18604 
B_22 Pmskl4 18604 
18614 
B_23 Pmski4 18614 
18624 
B24 Pmskl4 18624 
18634 
B_25 Pmskl4 18634 
18644 
B_26 Pmskl4 18644 
18654 
B_27 Pmskl4 18654 
18664 
B_28 Pmskl4 18664 
18674 
B_29 Pmski4 18674 
18684 
3 oe Pmskl4 18374 
18384 
B_30 Pmskl4 18684 
18694 
B_31 Pmskl4 1869# 
18704 
B_32 Pmskl4 18224 
18234 
B_33 Pmskl4 1823M 
18244 
B_34 Pmskl4 18244 
18254 
B_35 Pmskl4 18254 
18264 
B_36 Pmskl4 18264 4756 
18274 4757 
B_37 Pmski4 1827# 4788 
18284 4789 
8.38 Pmski4 18284 4819 
18294 4820 


SEQ 0251 


B_4 Pmski4 18384 , 
18394 SEQ 0252 
B_5 Pmski4 18394 . 
18404 
B_6 Pmskl4 18404 
18414 
| 8.7 Pmskl4 18414 
18424 
B_8 Pmskl4 18424 
18434 
B_9 Pmskl4 18434 
18444 
B_HWwTBL Pmskl2 1548 
1548 
C Pmskl2 951+ 9534 
951+ 953+ 
Pmskl3 951+ 953+ 
951+ 953+ 
Pmski4 964+ 966+ 
965+ 967+ 
CSATH] Pmski2 1248+ 1350+ 1359+ 1387+ 1396+ 1428+ 1433+ 1444+ 1462+ 
1248+H 7350+ 1359+ 1387+ 1396+ 1428+ 1433+ 1444+ 1462+ 
Pmskl3 1248+4 1350+ 1359+ 1387+ 1396+ 1428+ 1433+ 1444+ 1462+ 
1248+H 1350+ 1359+ 1387+ 1396+ 1428+ 1433+ 1444+ 1462+ 
Pmskl4 1261+ 1363+ 1372+ 1400+ 1409+ 1441+ 1446+ 1457+ 1475+ 
1262+ 1364+ 1373+ 1401+ 1410+ 1442+ 1447+ 1458+ 1476+ 
(EATLO Pmskl2 1246+4 1350+ 1358+ 1387+ 1395+ 1427+ 1433+ 1437+ 1456+ 
1246+# 1350+ 1358+ 1387+ 1395+ 1427+ 1433+ 1437+ 1456+ 
Pmskl3 124644 1350+ 1358+ 1387+ 1395+ 1427+ 1433+ 1437+ 1456+ 
1246+4 1350+ 1358+ 1387+ 1395+ 1427+ 1433+ 1437+ 1456+ 
Pmskl4 1259+4 1363+ 1371+ 1400+ 1408+ 1440+ 1446+ 1450+ 1469+ 
1260+# 1364+ 1372+ 1401+ 1409+ 1441+ 1447+ 1451+ 1470+ 
C$AU Pmskt2 5S0+# 573+ 
SO+# 573+ 
Pmsk 13 SO+# 573+ 
50+# 573+ 
Pmskl4& 63+4 586+ 
64+# 587+ 
C$AUTO Pmskl2 S7+# 583+ 
: S7+# 583+ 
Pmsk 3 57+# 583+ 
57+# 583+ 
Pmskl4 70+# 596+ 
7144 597+ 
( $BRK Pmskl2 26+# 241+ 
26+# 241+ 
Pmskl3 C6+# 241+ 
26+# 241+ 
Pmskl4 39+# 254+ 
40+# 255+ 
C$BSEG Pmskl2 12+ 491+ 
12+# 491+ 
Pmsk 13 12+# 491+ 
12+8@ 491+ 
Pmskl4 25+ 504+ 
26+# 505+ 
($BSUB Pmsk | 2 10+# 511+ 


511+ 
Pmsk 13 10¢# S114 
511+ 


Pmskl4 23+# 526+ 


24+8 525+ SEQ 0253 
CECEFG Pmski2 45+8 
45+a 
Pmsk 13 45+8 
45+8 
Pmski4 58+4 
S9O+# 
CECL OK Pmsk 2 58+# 842+ 
58+# 842+ 
Pmsk 13 S8+# 842+ 
S8+# 842+ 
Pmskl4 71+# 855+ 
72+# 856+ 
CSCLEAN Pmskl2 18+4 593+ 
18+4# 593+ 
Pmskl3 18+# 593+ 
18+# 593+ 
Pmsk 4 3i+e 606+ 
3248 607+ 
C$CLOS Pmskl2 37+4# 760+ 
37+# 760+ 
Pmsk 3 37+# 760+ 
37+4 760+ 
Pmski4 50+# 773+ 
51+4 774+ 
CECLP1 Pmski2 14+4 305+ 
14+4 305+ 
Pmsk (3 14+4 305+ 
14+4 305+ 
Pmsk l4 27+# 318+ 
28+# 319+ 
C$COUNT Pmskl2 342+H 1132+ 1139+ 1331+ 1345+ 1348+ 1368+ 1382+ 1385+ 1405+ 1417+ 
342+ 1132+ 11394 1331+4 1345+ 1348+ 1368+ 1382+ 1385+ 1405+ 1417+ 
1420+ 1435+ 
1420+ 1435+ 
Pmski3  342+4 1132+ 1139+ 1331+ 1345+ 1348+ 1368+ 1382+ 1385+ 1405+ 1417+ 
342+ 1132+ 1139+ 1331+ 1345+ 1348+ 1368+ 1382+ 1385+ 1405+ 1417+ 
1420+ 1435+ 
1420+ 1435+ 
Pmskl4 355+e 1145+ 1152+ 1344+ 1358+ 1361+ 1381+ 1395+ 1398+ 1418+ 1430+ 
356+# 1146+ 1153+ 1345+ 1359+ 1342+ 1382+ 1396+ 1399+ 1419+ 1431+ 
1433+ 1448+ 
1434+ 1449+ 
CECVEC Pmskl2 38+# 685+ 
38+# 685+ 
Pmsk 13 38+4# 685+ 
38+4# 685+ 
Pmskl4 S1+# 698+ 
S2+# 699+ 
CEDCLN Pmskl2 44+4 812+ 
44+# 812+ 
Pmsk 13 44+# 812+ 
44+# 812+ 
Pmskl4 S7+# 825+ 
58+# 826+ 
C$DODU Pmski2  49+# 804+ 
49+# 804+ 
Pmsk 13 49+# 804+ 
49+# B04+ 


CEDRPT 


CSEDIT 


CSERDF 


CEERHRD 
CSERROR 


CSERSF 


CSE SCAPE 


CSESEG 


! 
=, 
| 


Pmskl4 
Pmsk 2 
Pmsk 13 
Pmski¢ 
Pmskl2 
Pmsk (3 
Pmskl4 
Pmski2 
Pmsk (3 
Pmski4 
Pmski2 
Pmskl3 
Pmsk 14 
Pmski2 
Pmsk | 3 
Pmskl4 
Pmskl2 
Pmsk 3 
Pmsk 14 
Pmskl2 
Pmsk 13 
Pmskl4 
Pmskl2 
Pmsk | 3 
Pmskl& 
Pmskl2 
Pmsk 13 
Pmski4 
Pmskl2 
Pmsk 13 


89+ 
89+ 
89+ 


MWW SS OO 


SEQ 0254 


tiie Ss sss sessed senses 


CSE SUB 


CSETST 


CSEXIT 


CSGETS 


CEGE Tw 


CSGMAN 


C$GPHRD 


C$GPLO 


C$GPRI 


CEINIT 


Pmskl4 268 8674+ 


27+ 675+ 
Pmskl2 11¢#@ 667+ 
11+# 647+ 
Pmsk 13 11+# 647+ 
11+4 647+ 
Pmsk 14 24+8# 660+ 
C5+# =§=6—661+ 
Pmskl2 9+# 629+ 
9+# 629+ 
Pmsk 13 9+ 629+ 
9+# 629+ 
Pmsk l4 22+# 642+ 
23+# 643+ 


Pmsk 2 34+# 318+ 326+ 
Pmsk (3 34+8 318+ 326+ 
Pmsk 4 47+# 331+ 339+ 
Pmskl2 30+# 775+ 


30+# 775+ 
Pmsk 3 30+# 775+ 
30+4 775+ 
Pmsk 4 43+# 788+ 
44+# 789+ 
Pmski2 31+# 770+ 
31+# 770+ 
Pmsk (3 31+ 770+ 
31+4 770+ 
Pmsk l4 44+8# 783+ 
45+# 784+ 


Pmskl2 43+# 868+ 887+ 
Pmsk 3 43+# 868+ 881+ 
Pmskl4 56+# 881+ 894+ 
Pmskl2 42+# 752+ 


42+ 752+ 
Pmsk 13 42+8# 752+ 
42+ 752+ 
Pmskl4 55 +a 765+ 
S6+# 766+ 
Pmsk 12 32+4 
32+8 
Pmsk | 3 32+ 
32+ 
Pmsk 14 45+8 
46+4 
Pmskl2 40+ 791+ 
40+ 791+ 
Pmsk 3 40+4 791+ 
40+# 791+ 
Pmsk 14 53+# 804+ 
54+# 805+ 
Pmskl2 17+# 563+ 
17+#@ 563+ 


Pmski 3 17+# 563+ 


St tte sees teens ene 


SEQ 0255 


Siew 8577+ SEQ 0256 
CSINLP Pmskl2 2448 291+ 
O4+# 291+ 
Pmsk 3 O4+h 291+ 
2448 291+ 
Pmskl4 37+# 304+ 
38+4 305+ 


CSITCNT Pmskl2 948+4 975+ 978+ 980+ 983+ 989+ 991+ 993+ 995+ 
| 948+# 975+ 978+ 980+ 983+ 989+ 991+ 993+ 995+ 
Pmskl3 948+# 975+ 978+ 980+ 983+ 989+ 991+ 993+ 995+ 

948+4 975+ 978+ 980+ 983+ 989+ 991+ 993+ 995+ 
Pmskl4 961+# 988+ 991+ 993+ 996+ 1002+ 1004+ 1006+ 1008+ 
962+# 989+ 992+ 994+ 997+ 1003+ 1005+ 1007+ 1009+ 


CSMANI Pmskl2 48+# 298+ 
48+4 298+ 

Pmsk 3 48+# 298+ 

48+4# 298+ 

Pmskl4 61+# 311+ 

62+# 312+ 

CSMEM Pmskl2 33+4 284+ 
33+# 284+ 

Pmsk 3 33+# 284+ 

33+4# 284+ 

Pmskl4 46+# 297+ 

47+# 298+ 

CEMSG Pmskl2 27+ 519+ 
O7+# 519+ 

Pmsk l3 o7+h 519+ 

27+# 519+ 

Pmskl4 40+# 532+ 

41+# 533+ 

CSOPEN Pmskl2 36+# 765+ 
36+4 765+ 

Pmsk 3 36+4 765+ 

36+# 765+ 

Pmskl4 49+4 778+ 

SO0+# 779+ 

C$PNTB Pmskl2 20+4 695+ 
20+# 695+ 

Pmsk 3 20+4 695+ 

20+# 695+ 

Pmsk l4 33+4 708+ 

34+# 709+ 

CSPNTF Pmskl2 23+# 716+ 
23+# 716+ 

Pmsk 13 o3+# 716+ 

o3+# 716+ 

Pmskl4 36+4 729+ 

37+# 730+ 

CSPNTS Pmskl2 22+ 709+ 
22+# 709+ 

Pmsk 3 oct 709+ 

oot 709+ 

Pmsk 14 35+# 722+ 

36+4# 725+ 

CSPNTX Pmskl2 2144 702+ 
21+# 702+ 


35+# 716+ SEQ 0257 
| C$QI10 Pmskl2 SO+# 
59O+m 
Pmskl3 SO+# 
| 59+4 
Pmsk 4 72+4 
| 73+4 
| C$RDBU Pmskl2 15+# 277+ 
15+# 277+ 
Pmskl3 15+# 277+ 
15+# 277+ 
Pmskl4 28+# 290+ 
29+# 291+ 
| CSREFG Pmskl2 47+# 820+ 
47+# 820+ 
Pmskl3 47+# 820+ 
47+# 820+ 
Pmskl4 60+# 833+ 
61+# 834+ 
CSRESERYV Pmskl2 8+4 
8+4# 
Pmskl3 8+4 
8+4 
Pmsk l4& 21+4 
22th 
CERESET Pmskl2 35+4 246+ 
35+# 246+ 
Pmsk 13 35+# 246+ 
35+# 246+ 
Pmskl4 48+# 259+ 
49+# 260+ 
CSREVISION Pmskl2 1120+# 1189+ 
1120+# 1189+ 
Pmskl3 1120+4 1189+ 
1120+# 1189+ 
Pmskl4 1133+4 1202+ 
113444 1203+ 
CSRFLA Pmsk l2 25+# 270+ 
25+# 270+ 
Pmsk l3 25+# 270+ 
o5+e 70+ 
Pmskl4 38+4# 283+ 
39+4 284+ 
CERPT Pmskl2 29+# 613+ 
29+ = §= 613+ 
Pmsk 3 C9+# §=613+ 
29+# 613+ 
Pmskl4 42+# 626+ 
43+# 627+ 
CSSEFG Pmskl2 46+4 
46+4 
Pmsk 13 46+4 
46+4 
Pmskl4 59+# 
60+4 
CSSPRI Pmskt2 41+# 677+ 
41+# 677+ 


a a 


CSSVEC 


C$TPRI 


C$TSCi 


CAL_CHK_SUM 
CHAN 
CHIP_TBL 


CHK_SUM_CNT 


CKLOOP 


CLOCK 


CLOSE 


CLR 
CLRVEC 


Pmsk 14 
Pmskl2 
Pmskl3 
Pmskl4 
Pmskl2 
Pmskl3 
Pmskl4 
Pmskl2 


. Pmskl3 


Pmsk 4 


- Pmskl4 
~ Pmskl4 


Pmskl4 


Pmskl4 
Pmskl2 
Pmskl3 
Pmsk 14 
Pmskl2 
Pmsk 3 
Pmsk l4 
Pmskl2 
Pmskl3 
Pmsk 4 
Pmsk 14 
Pmskl2 
Pmsk 13 


SEQ 0258 


[oor ee 


| m 4 
Pmskl4 697+4 


698+4 SEQ 0259 
| CLR DRIVE Pmskl4 $1Sen 
| CLRLFLG Pmskl4 16374 2791 2792 2802 2803 2817 2832 2847 2862 2877 2892 


CLR_MBUS Pmskla 21>1# 2237 2284 «= 23162354. 2374 2436 2484 = 3092 4099 4641 


CLR_SEC_ROW Pmskl4 3927 3928 3936 3937 3940 3941 3948 3949 3952 3953 
CNT Pmskl4 3129 3131 3133 3136 4123 4126 4128 4129 4163 4165 4166 


COL pmskl4 16534 3219 3220 3296 3391 3508 
COL_0_127_OFF Pmsk4 4210 4287" 4257 4261M 4295 4300 
COL_128_255_OFF Pmski4 4211 42384 42874 42914 4296 4297 
COL_BASE Pmskl4 1983 3136 4093 4255 4259 4285 4289 4329 4332 4375 4378 


GOL_CNT_TBL Pmskl4 1961 25544 3179 3240 3751 37644 39224 40014 

COL_DESC_PRINT Pmskl4 20924 2172 

COL_ INDEX Pmskl4 3815 39704 39724 39784 39804 39864 39884 39944 39964 4001 4003 
3816 39714 39734 39798 39814 39874 39894 39954 3997# 4002 4004 

COL_MOST_OF TEN Pmskl4 3670 3688 3705 3707 


| 2908 2923 2938 2953 2968 2983 2994 3705 3762 3929 3939 
3942 3950 3954 4315 4332 4361 4378 4402 4418 4443 4459 
- COL_NUM Pmskl4 3176 3179 3183 3186 3193 3219 3220 3240 3748 3751 3762 


COL_PTR Pmskl4 1964 25854 3922 40034 
1965 25864 3923 40044 
“COL _PURGE Pmskl4 3255* 3707 
3256* 3708 
COL_SEL Pmskl4 3255 3296 
3256 3297 
COL_ SORT Pmskl4 3362* 3514 
3363* 3515 
COL_SUM Pmskl4 3672 3688 3707 3708 
3673 3689 3708 3709 
COMP_ERR Pmskl4 17614 


ee ee ce 


is 
| 
CON_A_MSG Pmskl4 2037# 4546 
20384 4547 ta SEQ 0260 
| CON_B_MSG Pmski4 20384 4553 
| 2039% 4554 
| CON_C_MSG Pmskl4 2039H 4305 4351 4392 4433 
20408 4306 «4352, 4393 4434 
CON_D_MSG Pmskl4 20404 5260 5278 
2041 5261 5279 
COPIED _REM_TBL i Pmskl4 1963  2570H 3220 32284 32344 33084 3338 33474 3350 3424 3427 
‘ 1964 25714 = 3221H = 3229H = 32354 = 3309 «= 3339 33484 =—3351 3425 3428 
34284 3429% 3579 3590 3593 
3429" 3430" 3580 3591 3594 
COPY Pmskt4 3307 3308 3349 3350 
. 3308 «= 3309 3350 3351 
CORRECT_HWTBL Pmskl4 5372 54314 5439 


0 
COUNT Pmskl2 1326 1342+ 1353+ \3 + 1363+ 1379+ 1390+ 1392+ 1400+ 1414+ 1422+ 
+ 


1363+ 1379 1390% 1392+ 1400+ 14144 1422+ 


aoa 1363+ 1379+ 1390+ 1392+ 1400* 1414+ 1422¢ 
+ 


Pmskl 3 1326* 13424 13 
13 1363+ 1379+ 1390+ 1392+ 1400+ 1414+ 1422+ 


1367+ 1369 1377+ 1393+ 404+ 1406+ 1414+ 1428+ 1436+ 


CPAR Pmskl4 17778 
CRC Pmskl4 1876# 4621 

CRC$A Pmskl4 18174 

CRC$B - pmskl4 1829" 

CRC_A Pmskl4 16234 

CRC_B Pmskl4 16244 4708 4737 
CRC_NIBBLE Pmskl4 1625# 4752 4784 4815 
CRC_P Pmskl4 16224 4708 4737 

CRC_SEL Pmskl4 4708 4711 4737 4759 4791 4822 
CS1_PRINT | Pmskl4 2078 2173 
CS2_PRINT Pmskl4 20824 2177 

CS3_REG Pmskl4 1894" 

CUR_MOST Pmskl4 3502 35224 3533 


3 

3 

CUR _ SUM Pmski4 3500 35064 35234 ; 3577#@ =§=645948 
3 
3 


3571 
7w «63549 «3552, 3572085788 85958 


3601 3604 36084 


1424+ 

1424+ 

Pmskl4 1339+ tt 1366¢ 1368+ 1376+ 1392+ 1403+ 1405+ 1413+ 1427+ 1435¢ 
+ 

(_Hw TBI Pmski2 1549 

i 


ES 


DSERR2 


DSERRS 


| 

| 

DSERR4 
DSERRS 
DSERRO 


DSERR7 
DSERRB 


DSERRO 


1560 1565 
1560 1565 


SEQ 0261 


| DSFILE 


DSGET 


DSPCNT 


DATA 
DATADR 


DAT_CLK 
DAT_DM 
DA_PRINT 
DA_REG 
DB1_REG 
DB2_REG 
DCK 
DCK_EN 
DECX 


Pmskl2 
Pmskl3 
Pmskl4 
Pmskl2 
Pmskl3 
Pmskl4 
Pmski2 
Pmsk 3 
Pmskl4 
Pmskl4 
Pmskl2 


Pmskl3 


Pmskl4 


Pmskl4 
Pmskl4 
Pmsk l4 
Pmsk L4 
Pmsk 4 
Pmskl4 
Pmsk 4 
Pmsk L4 
Pmskl2 


Pmsk 13 


Pmskl4 


147+ 
147+ 


147+ 
147+ 


160+ 
161+ 


864+ 
864+ 


864+ 
864+ 


877+ 
878+ 


1336+ 
1336+ 


1336+ 
1336+ 


1349+ 
1350+ 


868+ 
868+ 


868+ 
868+ 


881+ 
BE2+ 


SEQ 0262 


1363+ 
1363+ 


1563+ 
1365+ 


1376+ 
1377+ 


&75+ 
875+ 


875+ 
875+ 


888+ 
889+ 


fo ree saiptteiticmanseiiinensiaebiennti 


| 
| 


D 5 
DEGRADE _MOD_REG Pmskl4 2005 4307# 43534 43944 44354 4549 52624 52804 5337 55704 
2006 43084 43548 43954 46364 45504 52634 52814 5338 55714 SEQ 0263 
DELAY Pmskl2  249+4 
249+ 
| Pmskl3  249+4 
249+4 
| Pmskl4  262+# 4081 4092 5159 5188 5209 5255 5273 
263+# 4082 4093 5160 5189 5210 5256 5274 
DEPO Pmskl2 1111+ 1141+ 
1111+ 1141+ 
Pmskl3 1111+ 1141+ 
1111# 1141+ 
Pmskl4 1124+ 1154+ 
1125+ 1155+ 
DESC Pmskl2 1257+ 1258+ 1260+ 
1257+ 1258+ 1260+ 
Pmskl3 1257+ 1258+ 1260+ 
1257+ 1258+ 1260+ 
Pmskl4 1270+ 1271+ 1273+ 
1271+ 1272+ 1274+ 
DESCRIPT Pmskl2 1257+ 
1257+4 
Pmskl3 1257+# 1501 
1257+# 1501 
Pmskl4 1270+4 
1271+4 
DEST Pmskl2 769+ 770+ 774+ 775+ 779+ 781+ 782+4 
769+ 770+ 774+ 775+ 779+ 781+ 782+4# 
Pmskl3 769+ 770+ 774+ 775+ 779+ 781+ 782+4 
769+ 770+ 774+ 775+ 779+ 781+ 782+4# 
Pmskl4 782+ 783+ 787+ 788+ 792+ 794+ 795+ 
783+ 784+ 788+ 789+ 793+ 795+ 796+4 
DEVTYP Pmskl2 1251+4 
1251+4 
Pmskl3 1251+ 1498 
1251+# 1498 
Pmskl4 1264+4 
1265+4 
DFLT Pmskl2 862+ 866+ 873+ 879+ 886+ 895+ 927+ 928+ 930+ 1326+ 1339+ 


862+ 866+ 873+ 879+ 886+ 895+ 927+ 928+ 930+ 1326+ 1339+ 


Pmski3 862+ 866+ 873+ 879+ 886+ 895+ 927+ 928+ 930+ 1326+ 1339+ 
862+ 866+ 873+ 879+ 886+ 895+ 927+ 928+ 930+ 1326+ 1339+ 


Pmskl4 875+ 879+ 886+ 892+ 899+ 908+ 940+ 941+ 943+ 1339+ 1 
876+ 880+ 887+ 893+ 900+ 909+ 941+ 942+ 944+ 1340+ 1 


DFPTBL Pmskl2 oi 
DIAG_REG_SEL Pmskl4 3036 3058 3062 3077 
3037 3059% += 30634 ~=—-3078 
DIF Pmskl4 3504  3509% 3527" 3557 3575 3580% 3598" 3628 
3505 3510# «35284 «3558 «= 3576 «= 581% = 3599" = 3629 
DIF_COLS Pmskl4 3667 36884 3693 
3668 36894 = 3694 
DIF _ROWS Pmskl4 3668 3690# 3693 


DISABE 
DISPATCH 


DISPLAY 


DLT 
DM_1_O_LOAD 
DM_RAND_L OAD 


DM_RD_ TRANSFER 
DM_WRT_TRANSFER 
DCCLN 


DODU 


DONE _HRD 
DORPT 


DPAR 
DPR 
DRVTYP 
DRV_PRAM 
DRV_SEL 


3066 4735 
3067 4736 
2297 2341 
2298 2342 


2392 2411 2449 
2393 2412 2450 


2391 2410 2448 
2392 2411 2449 


2239 2266 
2240 2267 


2462 
2463 


2461 
2462 


2376 
2377 


2876 
2877 


2498 
2499 


2497 
2498 


2437 
2438 


2891 
2892 


2486 
2487 


2906 
2907 


5397 
5398 


5396 
5397 


5491 
5492 


2921 
2922 


5414 
5415 


2936 
2937 


5446 
5447 


5445 
5446 


SEQ 0264 


2951 
2952 


5535 
5534 





— DRV_SEL PRINT Pmski4 20684 5560 
20694 5561 SEQ 0265 
DRY Pmskl4 17654 2399 2454 2503 
17664 2400 2455 2504 
DS$NBR_OF_TESTS Pmskl2. 1126+ 14964 1522 
1126+ 14964 1522 
Pmskl3 1126+ 
1126+ 
Pmsk!4 1159+ 
1140+ 
DSNUM Pmskl2 961+ 963+ 965+ 967+ 969+ 


Pmskl3 961+ 963+ 995+ 967+ 969+ 
Pmskl4 974+ 976+ 978+ 980+ 982+ 


DST Pmskl4 2010 2218 2242 2245 2268 22978 23414 2356 2378 2417 2439 
2011 2219 2243 2246 2269 22984 23428 2357 2379 2418 2440 
2466 2489 26414 26614 30664 46174 46434 47354 
2467 2490 26424 26624 30674 46184 46444 47368 


DS_PRINT Pmskl4 20834 2178 
20844 2179 
DT_PRINT Pmskl4 20874 2182 
20884 21835 
DT_REG Pmski4 18084 
18094 
DU Pmskl2 1043+ 
1043+ 
Pmskl3 1043+ 
1043+ 
Pmskl4 1056+ 
1057+ 
DUMPER Pmskl4 2170 2389 2408 2446 2459 2495 2508 
2171 2390 2409 2447 2460 2496 2509 
DUT_Hw!BL Pmskl4 5370 54298 5455 
5371 54304 5456 
DVA Pmskl4 17234 
17244 
D_2_PRINT Pmskl4 20674 
20684 
D_CLK Pmski4 17984 2143 5161 5190 
oe 1799# 2144 5162 5191 
D_DM Pmskl4 1799 2137 
18004 2138 
D_EN Pmskl4 18004 2147 
18014 2148 
D_HWTBL Pmskl2 1550 
1550 
E Pmskl4 1917 1925 
1918 1926 
£1_REG Pmskl4 18184 
18194 
E2_REG Pmskl4 18304 2307 2344 
18314 2308 2345 
ECC_DIS Pmskl4 21384 2375 2485 
21394 2376 2486 
ECC_DM Pmskl4 2148# 
21498 
ECHERR Pmski4 17754 


+ EE_PRINT Pmskl4 2089# 2184 
20908 2185 SEQ 0266 
EFN Pmski2 819+ 820+ 
819+ 820+ 
Pmskl3 819+ 820+ 
819+ 820+ 
Pmskl4 832+ 833+ 
833+ 834+ 
| EF CONTINUE Pmskl2  205+4 
205+4 
Pmski3 205+ 
205 +4 
Pmskl4 218+4 
219+ 
| EF _NEW Pmskl2  206+4 
| 206+4 
Pmskl3 206+4 
206+4 
Pmski4 219+4 
220+ 
EF _PwR Pmskl2 207+4 
207+4 
Pmskl3  207+# 
207+4 
Pmskl4 220+4 
221+4 
EF RESTART Pmskl2 204+# 
204+4 
Pmskl3 204+ 
204+4 
Pmskl& 217+4 
218+4 
EF _START Pmskl2  203+# 
203+4 
Pmskl3 203+4 
203+4 
Pmskl4 216+# 5391 
217+# 5392 
EL_PRINT Pmskl4 20904 2185 
20914 2186 
EL_REG . Pmskl4 18824 
18834 
EMT_ESLOAD Pmskl2 1131+ 1220+ 
113144 1220+ 
Pmski3 1131+4 1220+ 
113144 1220+ 
Pmskl4 1144+# 1233+ 
1145+# 1234+ 
ENABE Pmskl4 16384 2238 2265 2375 2485 
16394 2239 2266 2376 2486 
ENDAU Pmskl2 568+ 
568+4 
Pmskl3 568+# 1680 
568+4 1680 
Pmskl4 581+4 
582+4 
ENDAUTO Pmskl2 578+4 
578+4# 


Pmskt 3 578+# 1647 
578+# 1647 


592+ 

ENDCLN Pmskl2 S88+4 
588+4 

Pmski3 588+4 

S88+4 

Pmskl4 601+4 

602+ 

ENDDU Pmskl2 S98+4 
598+4 

Pmski3 598+ 

598+4 

Pmskl4 611+4 

612+4 
ENDHRD Pmskl2 1316+ 
1316+4 
Pmskl3 1316+4 

1316+4 

Pmski4 1329+4 

| 1330+4 
| ENDHW Pmskl2 1093+# 
1093+4 
Pmskl3 1093+4# 
1093+4 
Pmskl4 1106+4 
1107+4 
| ENDINIT Pmskl2 558+4 
558+4 

Pmskl3 558+4 

558+4 

Pmskl4 571+4 
| 572+a 
FNDMSG Pmskli2 553+ 
553+8 
| Pmski3 553+# 
553+4 
Pmskl4 566+4 

567+4 
; ENDPROT Pmskl2 957+# 
957+# 

| Pmski3 957+4 
957+4 

Pmskl4 970+# 

971+4 

FNDPTAB Pmskl2 442+ 
442+# 

Pmsk | 3 442+8 

442+4 

Pmski4 455+ 

| 456+4 
ENDRPT Pmskl2 608+4 
608+4 

Pmski3 608+4 

608+4 

Pmski4 621+4 

622+8 

ENDSEG Pmsk 12 652+4 
652+4 

Pmski3 652+8 

652+ 


1629 
1629 


SEQ 0267 


ENDSE TUP 


ENDSFT 


ENDSRY 


ENDSRV_MODPR | 


ENDSUB 


ENDSw 


ENDTST 


END_MSG 
END_SEC 
ENTER_BOARD 
EQUALS 


ERRBi K 


Pmski4 665+4 


666+4 
Pmski2 41144 
411+4 
Pmskl3 411+4 
411+4 
Pmskl4& 424+8 
425+4 
Pmskl2 1321+ 
1321+4 
Pmskl3 1321+# 1612 
1321+ 1612 
Pmskl4 1334+4 
1335+4 
Pmski2 537+# 549+ 
537+# 549+ 
Pmskl3 537+4 549+ 


Pmsk (4 550+# 562+ 


551+4 563+ 
Pmskl2 541+4 
541+4 
Pmsk 3 541+4 
541+4 
Pmsk L4 554+4 
555+a 
Pmskl2 639+4 
639+4 
Pmskli3 639+4 
639+4 
Pmskl4 652+4 
653+4 


Pmskl2 1073+# 1581 
Pmskl3 1073+4 
Pmskl4 1086+4 
Pmsk(2 618+4 
Pmski3  618+4 
Pmskl4 631+# 5637 
Pmskl4 20334 soe? 


Pmskl4 3174 31884 3195 3206 3820 38644 38708 3879 %3885# 3889 
3175 31898 3196@ 3207 3821 3865¢@ 38718 3880" 38864 3890 


Pmskl3 1547 
1547 1561 
Pmskl2 167+ 1506 
167+# 1506 
Pmskl3 167+4 1492 
167+# 1492 
Pmski4 180+# 2018 
81+# 2019 
Pmsk l2 5+4 


Pmsk (3 


SEQ 0268 


Pmskl4 1118+4 
1119+4 
| ERRDF Pmskl2  111+4 
| 111+8 
Pmskl3  111+4 
111+4 
Pmsk 14 124+4 
125+4 
| ERRHRD Pmskl2 121+4 
121+# 
Pmsk 3 121+4 
121 +f 
Pmsk l4 134+4 
135+# 
| ERRMSG Pmskl2 1104+ 
1104+ 
| Pmskl3 1104+ 
1104+ 
Pmski4 1117+ 
1118+ 
ERRNBR Pmskl2 1103+ 
1103+ 
Pmskl3 1103+ 
1103+ 
Pmskl4 1116+ 
1117+ 
ERRNUM Pmskl2 111+ 117+ 121+ 127+ 131+ 
111+ 117+ 121+ 127+ 131+ 
Pmskl3 111+ 117+ 121+ 127+ 131+ 
111+ 117+ 121+ 127+ 131+ 
Pmskl4 124+ 130+ 134+ 140+ 144+ 
125+ 131+ 135+ 141+ 145+ 
ERROR Pmskl2 102+4 
102+ 
Pmskl3  102+4 
102+# 
Pmskl4 115+4 
116+4 
ERROR_MAP Pmskl4 1973 2599 30834 3210 3215 
1974 2600 30844 3211 3216 
4064 40824 40934 4121 4128 
4065 40834 40944 4122 4129 
4289 4962 50064 50294 50524 
4290 4963 0074 S030# 50534 
ERRSF Pmskl2 131+4 
131+4 
Pmskl3 131+4 
131+4 
Pmskl4 144+# 2389 2408 2446 2459 
145+# 2390 2409 2447 2460 
4546 4553 4927 5164 5193 
4547 4554 4928 5165 5194 
5410 5529 
5411 5530 
ERRSOFT Pmskl2 141+4 
141+4 
Pmskl3 141+# 
141+ 
Pmskl4 154+4 
155+# 


SEQ 0269 


| ERRTBL 


ERRTYP 


ERR_1 
ERR_10 
ERR_11 
ERR_12 
ERR_13 
ERR_2 
ERR_3 
ERR_4 
ERR_S 
ERR_6 
ERR_7 
ERR_8 
ERR_9 


ER_PRINT 


ESCAPE 


EVL 


EXIT 


EXIT_TST 


* 
+ 
2 


@c—-—- D000 
SOs r ess 
Ret+ ++ + + 


944 


MUON Ss 
WAA ODO OWW?PONNPr 
NEMA AUMPINMNNY 

-~- +++ t+ + 


WG 
WN 
— 


2446 
2447 


4392 
4393 


2459 
2460 


4433 
4434 


2495 
2496 


2508 
2509 


SEQ 0270 


324+4 SEQ 0271 


E_BIT Pmskl4 18784 
| ELDIS Pmski4 18014 3 
E_DM Pmskl4 18024 21 
E_HwTBL ) Pmskl2 1 
FAIL_CHIP | Pmskl4 2664 2690 2696 © 2699-S-s«2702,—S's«2705-S ss 2708-)~=— 2711S 2714 = 2717 — 2720 


FALSE Pmskl4 16184 3468 
16194 3469 : 
FAULT Pmskl4 16614 2690 4039 4711 4932 ys 
16624 2691 4040 4712 4933 
FB_CHIPS Pmski4 4843* 5322 5590 
4844% 5323 559] 
FB_CRC_CHIPS Pmskl4 4676* 4866 
4677* 4867 
FB_DATA_CHIPS Pmskl4 4561* 4864 
4562* 4865 
F EQUAL Pmskl2 151+4 
151+4 
Pmskl3  151+4 
151+4 
Pmsk 4 164+4 
165+4 
FIELDNAM Pmskl4 2108 2115 
2109 2116 
FIFTY_MS Pmskl4 16304 5159 5188 
16314 5160 5189 
FILENAME Pmskl2 764+ 765+ 
764+ 765+ 
Pmskl3 764+ 765+ 
764+ 765+ 
Pmskl4 777+ 778+ 
778+ 779+ 
FILNAM Pmskl2 1117+ 11324 1135+ 1139+ 
1111# 11324 1135+ 1139+ 
Pmskl3. 1117174 11324 1135+ 1139+ 
1111# 11324 1135+ 1139+ 
Pmskl4 1124+ 1145+ 1148+ 1152+ 
1125+ 1146+ 1149+ 1153+ 
FINISH Pmskl4 4061 40664 4077 4088 5131 51334 5149 5177 5233 52398 5251 
rss 40674 4078 4089 5132 51344 5150 5178 5234 52404 5252 
5270 
FLAVOR Pmskl2 1279+ 1286+ 
1279+ 1286+ 
Pmskl3 1279+ 1286+ 
1279+ 1286+ 
Pmskl4 1292+ 1299+ 
1293+ 1300+ 
FLG_REG Pmskl4 2004 27924 28034 28484 28634 28784 28934 29084 29234 


28184 28334 
2005 27934 28044 28198 28344 28498 28644  2879% 28948 2909 2924# 





5 


| 
M 
| 29384 29534 29684 29834 29944 3064 30844 4543 45484 45554 46334 
2939H 29544 29694 29844  2995H 3065 30854 4544 45494 4556 4 SEQ 0272 
48624 4866 49004 49074 4920 4935 51674 51964 5328 55724 5595 
48634 4867 49014 49084 4921 4936 51684 51974 5329 55734 85596 
5602 5617 
5603 5618 
FORDEC Pmskl2 965+ 988+# 995+ 
965+ 988+# 995+ 
Pmskl3 965+ 988+# 995+ 
965+ 988+# 995+ 
Pmskl4 978+ 1001+4 1008+ 
979+  1002+# 1009+ 
FOUR_MSG Pmskl4 fig 
FULL_WRD Pmskl4 21574 2540 3210 3464 4082 4093 4126 4128 4129 4165 4166 
21584 2541 3211 3465 4083 4094 4127 4129 4130 4166 4167 
4974 4980 5005 5006 5007 5028 5029 5030 5051 5052 5053 
4975 4981 5006 5007 5008 5029 5030 5031 5052 5053 5054 
5070 5071 5072 5087 5088 5089 5096 5097 5152 5157 5180 
5071 5072 507 5088 5089 5090 5097 5098 5153 5158 5181 
5186 5257 275 
5187 5258 5276 z 
FUNC Pmskl4 17274 2128 2243 2270 2380 2441 2490 
17284 2129 °§ 2244 2271 2381 2442 2491 
FUNC_1 Pmskl4 15424 
15434 
FUNC_2 Pmskl4 15434 2128 
15444 2129 
FUNC_3 Pmskl4 15444 
15454 
FUNC_4 Pmskl4 15454 2243 2380 
15464 2244 2381 
FUNC_5 Pmskl4 15464 2270 2441 
15474 2271 2442 
FUNC_6 Pmski4 15474 2490 
15484 2491 
F __ABOkT_ARRAY Pmskl4 16124 4555 4935 5595 5602 
16134 4556 4936 5596 5603 
F_ALL_BAD_CHIP Pmskl4 16104 4543 4548 4900 
16114 46544 4549 4901 
F_BLST_TBL_ENTERED PmskL4 16094 
F_D_CLK_TIME_OUT Pmskl4 16134 5167 5196 5617 
16144 5168 5197 5618 
F __ERR_MAP_ENTERED Pmskl4 16084 3084 4907 4920 
16094 3085 4908 4921 
F_FLG_ERR Pmskl4 16064 
16074 
F_HWTBL Pmskl2 1326 
F_RAND_DATA Pmskl4 16114 2792 2803 2818 2833 2848 2863 2878 2855 2908 2923 
16124 2793 2804 2819 2834 2849 2864 2879 2894 2909 2924 
2938 2953 2968 2983 2994 3064 
2939 2954 2969 2984 2995 3065 
F_UNC_ERR_FLG Pmskl4 16074 4633 4862 4866 5328 
16084 4634 4863 4867 5329 
GS$CNTOP Pmskl2 B89+# 1344+ 1381+ 1416+ 
B89+H# 1344+ 1381+ 1416+ 
Pmsk 3 89+4 1344+ 1381+ 1416+ 
89+# 1344+ 1381+ 1416+ 


GSEKCP 


GSHIL IM 


G$LOLIM 


GENO 


GSOF FSET 


GS$OF SIZE 


GEPRMA 


GEPRMD 


GBPRM, 


“ Pmskl4 


Pmskl2 
Pmskl3 
Pmskl4 
Pmskl2 
Pmsk (3 
Pmskl4 
Pmsk l2 


. Pmsk 3 


Pmskl4 
Pmskl2 
Pmsk 13 
Pmskl4 
Pmskl2 
Pmsk 13 
Pmskl4 
Pmskl2 
Pmsk 13 
Pmskl4 
Pmskl2 
Pmsk 3 
Pmskl4& 
Pmskl2 
Pmsk | 3 
Pmskt4 
Pmskl2 
Pmsk 5 
Pmskl4 
Pmskl 2 


Pmski 3 


1394+ 
1395+ 


1409+ 


N 5 
1429+ 


1430+ 


SEQ 0273 


G$RADD 


GSRADL 


GERADO 


GSXFER 


G$YES 


GEN_RANDOM_DATA 


GETBYTE 


GETPRI 


Pmsk 14 
Pmskl2 
Pmskl3 
Pmskl4 
Pmskl2 
Pmsk 13 
Pmskl4 
Pmskl2 
Pmskl3 
Pmsk 4 
Pmskl2 
Pmsk 3 
Pmsk 4 
Pmskl2 
Pmsk 3 
Pmsk 4 
Pmskl2 
Pmsk 3 
Pmsk l4 
Pmskl2 
Pmskl3 
Pmskl4 
Pmskl4 


Pmskl2 
Pmsk l3 
Pmsk 14 
Pmskl2 
Pmskl3 
Pmskl4 


2637 2812 2827 
2638 oy 2828 


2842 
2843 


2857 
2858 


2887 
2888 


2902 
2905 


SEQ 0274 


2917 
2918 


oo, 


1 
GMANID 
GMANIL 
GO 
GP$ATHI 
GP$ATLO | 
GP$D1SP 
GP$_COUNT 


EF 


69+4 


4 
4 

5 

50 
247+ 
2 

2 
O47+# 
2 


60+4 


SEQ 0275 


_ 


pos eee TS See eee en 


Pmskl4 764+ 5407 
765+# 5408 SEQ 0276 
| GPRMA Pmskl2 1326+4 , 

Pmskl3 1326+4 1572 

Pmskl4 1339+4 
| GPRMD Pmskl2 1363+4 

Pmskl3 1363+4 1560 1565 1573 

1573 


Pmskl4 1376+4 


| 
| 
1377+# 
GPRML Pmskl2 1400+4 
1400+4 
Pmskl3 1400+4 1541 1546 1551 1574 1583 1610 
1400+# 1541 1546 1551 1574 1583 1610 
Pmskl4 1413+4 
1414+4 
GTR_MSG Pmskl4 20424 5380 
20434 5381 
G_HWTBL Pmskl2 1329 
HEADER Pmskl2 111144 1510 
111144 1510 
Pmskl3  1111+4 
1111+4 
Pmskl4 1124+4 
1125+# 
HEADER_PRINT Pmskl4 20914 2171 
20924 2172 
HIGH Pmskl2 873+ 881+ 886+ 897+ 1326+ 1341+ 1363+ 1378+ 1432+ 1447+ 1449+ 
873+ 881+ 886+ 897+ 1326+ 13414 1363+ 1378+ 1432+ 1447+ 1449+ 
Pmskl3 873+ 881+ 886+ 897+ 1326+ 13414 1363+ 1378+ 1432+ 1447+ 1449+ 
873+ 881+ 886+ 897+ 1326+ 1341+ 1363+ 1378+ 1432+ 1447+ 1449+ 
Pmskl4 886+ 894+ 899+ 910+ 1339+ 1354+ 1376+ 1391+ 1445+ 1460+ 1462+ 
887+ 895+ 900+ 911+ 1340+ 1355+ 1377+ 1392+ 1446+ 1461+ 1463+ 
HOE Pmskl2 235+ 
j 235+4 
Pmskl3 235+# 
235+ 
Pmsk l4 248+4 
249+4 
HQ_ERR_MSG Pmskl4 20314 5379 5529 
20324 5380 5530 
HQ_MSG Pmskl4 20324 5530 
20334 5531 
H_HWTBL Pmskl2 1554 
1554 
JAE Pmskl4 17734 
17744 
IBE Pmskl2 232+ 
232+ 
Pmskl3 232+# 
232+ 
Pmskl4 245+4 
246+4 
DU Pmskl2 225+# 


| Te 





ILF 
ILL_CMD_MSG 
ILR 

IMAGE 

IN 


INC_ARR 
INC_BNK 
INDE X 


INL OOP 


IN_BLAST_TBL 
IN_ERROR_MAP 
IOAE 


IOFN 


3427 
3428 


3428 
3429 


3429 
3430 


SEQ 0277 


3516 
3517 


Rsaltseearieeisebnedepsteainlinaippenquneaneiotenlapdnapsitibiesdigmeltingce 


1OLN 


TOPL 


10SB 


iRDY 


IMe 


1_BLAST_TBL 
1_CHIP_TBL 
1_COL_CNT_TBL 
1_COL_PTR 
I_ERROR_MAP 
1_HWTBL 
{_REM_TBL 
1_TMP_BLST_TBL 
KIND 


171+4 
Pmskl2 158+ 
158+4 
Pmskl3 158+4 
158+ 
Pmskl4 171+8 
172+ 
Pmskl2 162+4 
162+4 
Pmskl3 162+4 
162+4 
Pmskl4 175+8 
176+4 
Pmskl2 160+4 
160+4 
Pmsk l3 160+4 
160+4 
Pmsk 14 173+4 
174+8 
Pmskl4 17524 
17534 
Pmskl2 163+ 
163+ 
Pmsk l 3 163+ 
163+ 
Pmskl4 176+ 
177+ 
Pmski2 226+ 529+ 
. 226+# 529+ 
Pmskl3 226+ 529+ 
226+# 529+ 
Pmski4 239+ 542+ 
24048 543+ 
Pmskl2 231+4 
231+4 
Pmskl3 231+ 
231+# 
Pmskl4 244+4 
245+h 
Pmskl4 2602* 5573 
2603* 5574 
Pmskl4 2515* 4863 
2516* 4864 
Pmskl4 2543* 3824 
2544% 3825 
Pmskl4 2574* 3862 
2575* 3863 
Pmski4 2588* 4219 
2589* 4220 
Pmskt2 1555 
1555 
Pmski4 2557* 3674 
2558" 3675 
Pmskl4 2529* 4519 
2530* 4520 
Pmski2 840+ 842+ 
840+ 842+ 
Pmski3 840+ 842+ 
840+ 842+ 


530+ 
530+* 
530+* 
530+* 
543+* 
544+* 


SEQ 0278 


poo a 


Pmski4 853+ 855+ 


854+ 856+ SEQ 0279 
l Pmski2 828+ 915+ 1410+ 
828+ 915+ 1410+ 
Pmskl3 828+ 915+ 1410+ 
828+ 915+ 1410+ 
Pmski4 841+ 928+ 1423+ 
842+ 929+ 1424+ 
L$ace Pmskl2 1230+ 
1230+ 
Pmskl3 1230+ 
1230+ 
Pmski4 1243+ 
LSAPT Pmskl + 
1178+ 
Pmskl3 1178+ 
1178+ 
Pmskl4 1191+ 
| 1192+ 
| LSAU Pmskl2  570+* 1118+ 1208+ 
570+* 1118+ 1208+ 
Pmskl3 570+* 1118+ 1208+ 
S570+* 1118+ 1208+ 
Pmskl4 5834* 1131+ 1221+ 
584+* 1132+ 1222+ 
i fAuT Pmski2 1205+ 
1205+ 
Pmskl3 1205+ 
1205+ 
Pmskl4 1218+ 
1219+ 
L$AUTO Pmskt2 S80+* 1118+ 1231+ 
580+* 1118+ 1231+ 
Pmski3 580#* 1118+ 1231+ 
580+* 1118+ 1231+ 
Pmski4 593+ 1131+ 1244+ 
594+* 1132+ 1245+ 
LScce Pmskl2 1228+ 
1228+ 
Pmski3. 1228+ 
1228+ 
Pmskl4 1241+ 
1242+ 
LSCLCK Pmskl2 842+ 852+4 
842+ 852+4 
Pmski3 842+ 852+4 
842+ 852+4 
Pmski4 855+ 865+4 
856+ 866+4 
LSCLEAN Pmskl2 590+* 1117+ 1229+ 
590+" 1117+ 1229+ 
Pmski3 590+* 1117+% 1229+ 
590+¢* 1117+ 1229+ 
Pmski4 603+ 1130+ 1242+ 
604+" 11314 1243+ 
LSCLRVEC Pmski2 685+ 689+4 
685+ 689+4 
Pmsk (3 685+ 689+4 
685+ 689+4 





c-—- 


Pmski4 698+ 702+4 


699+ 703+8 SEQ 0280 
' .$coO Pmskl2 1168+ 
1168+ 
Pmskl3 1168+ 
1168+ 
Pmskl4 1181+ 
1182+ 
' LBDEPO Pmskl2 1142+ 
1142+8 
Pmskl3 1142+ 
1142+4 
Pmskl4 1155+4 
1156+4 
; LSDESC Pmskl2 1118+ 1218+ 1258+ 
1118+ 1218+ 1258+ 
Pmskl3 1118+ 1218+ 1258+ 
1118+ 1218+ 1258+ 
Pmski4 1131+ 1231+ 1271+ 
1132+ 1232+ 1272+ 
LSDESP Pmskli2 1217+ 
1217+ 
Pmskl3 1217+ 
1217+ 
Pmski4 1230+ 
123i+ 
LEDE VP Pmskli2 1194+ 
1194+ 
Pmskl3 1194+ 
1194+ 
Pmskl4 1207+ 
1208+ 
LSDISPATCH Pmskl2 967+ 1126+ 1181+ 
967+ 1126+ 1181+ 
Pmski3 967+ 1126+ 1181+ 
967+ 1126+ 1181+ 
Pmskl4 980+ 1139+ 1194+ 
981+ 1140+ 1195+ 
LSDLY Pmskl2 251+ 257+ 1236+ 
251+ 257+ 1236+ 
Pmskl3 251+ 257+ 1236+ 
251+ 257+ 1236+ 
Pmski4 264+ 270+ 1249+ 
265+ 271+ 1250+ 
LSDOCLN Pmskl2 812+ 816+4 
812+ 816+4 
Pmskl3 812+ 816+4 
812+ 816+4 
Pmskl4 825+ 829+4 
826+ 830+4 
L $DODU Pmskl2 804+ 808+4 
804+ 808+4 
Pmski3 804+ 808+4 
804+ 808+4 
Pmskl4 817+ 821+4 
818+ 822+ 
L $DORPT Pmskl2 796+ 800+4 
796+ 800+4 


Pmski3 796+ 800+4 


Pmski4 809+ 813+8 


810+ B14+4 SEQ 0281 
L$pTP Pmskl2 1180+ 
1180+ 
Pmskl3 1180+ 
1180+ 
Pmskl4 1193+ 
1194+ 
LSDTYP Pmski2 1176+ 
1176+ 
Pmskl\3 1176+ 
1176+ 
| Pmskl4 1189+ 
1190+ 
| LDU Pmskl2 600¢* 1178+ 1213+ 
600+* 1118+ 1213+ 
Pmskl3 600+* 1178+ 1213+ 
600+* 1118+ 1213+ 
Pmski4 613#* 1131+ 1226+ 
614+" 11324 1227+ 
L$DuT Pmski2 1210+ 
1210+ 
Pmskl3 1210+ 
1210+ 
Pmskl4 1223+ 
1224+ 
LEDvTyve Pmskli2 1118+ 1195+ 1252+ 
1118+ 1195+ 1252+ 
Pmskl3 1118+ 1195+ 1252+ 
1118+ 1195+ 1252+ 
Pmski4 11314 1208+ 1265+ 
1132+ 1209+ 1266+ 
LSEF Pmskl2 1190+ 
1190+ 
Pmskl3 1190+ 
1190+ 
Pmskl4 1203+ 
1204+ 
LSENVI Pmski2 1184+ 
1184+ 
Pmskl3 1184+ 
1184+ 
Pmskl4 1197+ 
1198+ 
L SERROR Pmski2 103+ 108+4 
103+ 108+4 
Pmski3 103+ 108+4 
103+ 108+4 
Pmskl4 116+ 121+4 
117+ 122+4 
LSERRTBL Pmskl2 1128+4 1224+ 
1128+# 1224+ 
Pmskl3 1128+# 1224+ 
1128+# 1224+ 
Pmskl4 1141+ 1237+ 
1142+8 1238+ 
i Sete Pmskl2 1221+ 
1221+ 
Pmski3 1221+ 
1221+ 


— SS tensa nents 


SO 


LSEXP 
LSEXPS 
| LSEXKPS 


LEGPHARD 


| 
L HARD 
LSHIME 
LSHPCP 
L SHPTP 
LSHRDLN 


Pmskl4 
Pmskl2 
Pmsk13 
Pmskl4 
Pmskl2 
Pmskl3 
Pmskl4 
Pmskl2 
Pmskl3 
Pmsk 4 
Pmskl2 
Pmskl3 
Pmskl4 
Pmski2 
Pmsk 3 
Pmskl4 
Pmskl2 
Pmsk l3 
Pmskl4 
Pmskl2 
Pmsk 13 
Pmsk 4 
Pmsk 12 
Pmskl3 
Pmskl4 
Pmsk l2 
Pmskl3 
Pmsk 14 
Pmskl2 
Pmsk 3 


Mme 4 PNM 
++ ee rererrertrertr rere tre t+ 


mee ee ek ek ed es es = od = et =o 
WWWAWWUI SS A es es 


PoNoNnonononononnononon 


—_ 
~+++ + 


—_ 
~++ e+ + + 


AAOWMMMAUT UW WANA WS = 
+ 


ae os os a os os ss = fNNONOIIN PO Pn on os 
—=—|DOOCON NVI 
AVINVMGNM-ONNNNEW 
+++ ete eeerereererrere te 


ek ek kk ek ek kk a a a os 3 SS SS SS SS 
WWAWWAG 


756+4 

756+4 

756+4 

756+4 

769+4 

770+# 

1151+ 1304+4 
1151+ 1304+4 
1151+ 1304+# 
1151+ 1304+4 
1164+ 1317+ 
1165+ 1318+4 
1303+ 1304+ 
1303+ 1304+ 
1303+ 1304+ 
1303+ 1304+ 
1316+ 1317+ 
1317+ 1318+ 
1130+# 1158+ 
1130+# 1158+ 
1130+4 1158+ 
1130+# 1158+ 


SEQ 0282 


ee 
| 
' 


LSHWLEN 


LSICP 


LSINIT 


L$INLOOP 


LEISR 


LSLADP 


L$LAST 


L$LOAD 


L$LUN 


iL SMANUAL 


NM 
~~ st 
wooo 
++++ 


— 4 VV I SS SS = 


~ 
+ 
R 


od ad a nd nl ed et cl 

ooooo°o-;-- 

sO O COCO CO0COS & 
rs 


9+ 


SEQ 0283 


Pmskl4 311+ 314+4 
312+ 315+4# SEQ 0284 
LSMEMORY Pmskl2 284+ 287+4 
284+ 287+4 
Pmskl3 284+ 287+ 
284+ 287+# 
Pmskl4 297+ 300+4 
298+ 301+4 
LOMREV Pmskl2 1188+ 
' 1188+ 
Pmskl3 1188+ 
1188+ 
Pmskl4 1201+ 
1202+ 
LSMSG Pmskl2 519+  526+4 
519+# 526+ 
Pmskl3 519+#  526+4 
519+#  526+4 
Pmskl4 532+  539+4 
533+#  540+4 
L SNAME Pmskl2 1134+ 
1134+ 
Pmskl3 1134+ 
1134+ 
Pmskl4 1147+ 
1148+ 
LENDHRD Pmski2 1301+ 1303+ 1317+ 
1301+ 1303+ 1317+ 
Pmskl3 1301+ 1303+ 1317+ 
1301+ 1303+ 1317+ 
Pmskl4 1314+ 1316+ 1330+ 
1315+ 1317+ 1331+ 
LENDHW Pmskl2 1083+ 1085+  1094+# 
1083+ 1085+ 1094+ 
Pmskl3 1083+ 1085+ 1094+# 
1083+ 1085+ 1094+ 
Pmskl4 1096+ 1098+ 1107+# 
1097+ 1099+ 1108+ 
LSNDSFT Pmskl2 1309+ 1311+ 1322+ 
1309+ 1311+ 1322+ 
Pmskl3 1309+ 1311+ 1322+ 
1309+ 1311+ 1322+ 
Pmskl4 1322+ 1324+ 1335+ 
1323+ 1325+ 1336+ 
LSNDSW Pmskl2 1062+ 1065+ 1074+# 
1062+ 1065+ 1074+# 
Pmskl3 1062+ 1065+ 1074+4 
1062+ 1065+ 1074+4 
Pmskl(4 1075+ 1078+  1087+# 
1076+ 1079+ 1088+# 
LSPRIO Pmskl2 1182+ 
1182+ 
Pmskl3 1182+ 
1182+ 
Pmskl4 1195+ 
1196+ 
LSPROT Pmski2 952+ 1125+ 1233+ 
952+ 1125+ 1233+ 
Pmskl3 952+ 1125+ 1233+ 
952+ 1125+ 1233+ 


—— : 
6 
Pmskl4 965+ 1138+ 1246+ 
66+ 1139+% 1247+ SEQ 0285 
| LSPRT Pmskl2 1232+ 
1232+ 
Pmskl3 1232+ 
1232+ 
Pmskl4 1245+ 
1246+ 
LSREADBUS Pmskl2 277+ 280+4 
77+ 280+4 
Pmskl3 277+ 280+4 
277+ 280+4 
Pmskl4 290+ 293+h 
291+ 294+4 
LSREADEF Pmskl2 820+ 824+4 
820+ 824+4 
Pmskl3 820+ 824+4 
820+ 824+h 
Pmskl4 833+ 837+4# 
834+ 838+4 
LSREPP Pmskl2 1196+ 
1196+ 
Pmskl3 1196+ 
1196+ 
Pmskl4 1209+ 
1210+ 
LEREV Pmskl2 1140+ 1142+ 
1140+ 1142+ 
Pmskl3 1140+ 1142+ 
1140+ 1142+ 
Pmskl4 1153+ 1155+ 
: 1154+ 1156+ 
LSRFLAGS Pmskl2 270+ 273+ 
270+ 273+ 
Pmskl3 270+ 273+4 
270+ 273+4 
Pmskl4 283+ 286+4 
284+ 287+4 
LSRPT Pmskl2 610+* 1117+ 1199+ 
610+* 1117+ 1199+ 
Pmskl3 610+* 1117+ 1199+ 
610+* 11174 1199+ 
Pmskl4 623+* 1130+ 1212+ 
624+* 1131+ 1213+ 
LSSETPRI Pmskl2 677+ 681+4 
677+ 681+4 
Pmskl3 677+ 681+4 
677+ 681+4 
Pmskl4 690+ 694+4 
691+ 695+4 
LSSETVEC Pmskl2 669+ 673+4 
669+ 673+4 
Pmskl3 669+ 673+4 
669+ 673+4 * 
Pmskl4 682+ 686+4 
683+ 687+4 
LSSFTLN Pmskl2 1310+ 1311+ 1312+ 
1310+ 1311+ 13124 
Pmskl3 1310* 1311+ 1312¢ 
1310+ 1311+ 1312+ 


a 


Pmski4 1323+ 1324+ 1325+ 
1324+ 1325+ 1326+ SEQ 0286 
LSSOFT Pmskl2 1117+ 1155+ 1312+4# 
1117+ 1155+ 131248 
Pmskl3  1117# 1155+ 1312+ 
1117+ 1155+ 1312+4 
Pmskl4 1130+ 1168+ 1325+ 
1131+ 1169+ 1326+4# 
LSSPC Pmski2 1192+ 
1192+ 
Pmskl3 1192+ 
1192+ 
Pmskl4 1205+ 
1206+ 
LSSPCP Pmskl2 1152+ 
11524 
Pmskl3 1152+ 
1152+ 
Pmskli4 1165+ 
1166+ 
LESPTP Pmskl2 1159+ 
1159+ 
Pmskl3 1159+ 
1159+ 
Pmskl4 1172+ 
1173+ 
LESTA Pmskl2 1166+ 
1166+ 
Pmskl3 1166+ 
1166+ 
Pmskl4 1179+ 
1180+ 
L$Sw Pmskl2 1068+ 1129+# 1162+ 
1068+ 1129+# 1162+ 
Pmskl3 1068+ 1129+# 1162+ 
1068+ 1129+# 1162+ 
Pmskl4 1081+ 1142+4 1175+4 
. . 1082+ 114344 1176+ 
LESWLEN Pmskl2 1064+ 1065+ 1123+ 1129+ 
1064+ 1065+ 1123+ 1129+ 
Pmskl3 1064+ 1065+ 1123+ 1129+ 
1064+ 1065+ 1123+ 1129+ 
Pmskl4 1077+ 1078+ 1136+ 1142+ 
1078+ 1079+ 1137+ 1143+ 
LSTEST Pmskl2 1234+ 
1234+ 
Pmskl3 1234+ 
1234+ 
Pmskl4 1247+ 
1248+ 
LSTIML Pmskl2 1148+ 
1148+ 
Pmskl3 1148+ 
1148+ 
Pmski4 1161¢ 
1162¢ 
LSUNIT Pmski2 1143+ 
1143¢ 
Pmskl3 11434 
11436 


' 


" % ‘ ial 
| B 7 
| Pmskl4 1156+ 1950 2391 2419 2448 2461 2497 2510 5376 53844 5396 
| 1157+ 1951 2392 2411 2449 2462 2498 2511 5377 53854 5 SEQ 0287 
H 5413 5445 5533 5635 
5414 5446 5534 5636 , 
LAB Pmskl2 1264+ 1265+ 1269+ 1270+ 1274+ 1275+ 1279+ 1281+ 1284+ 1285+ 1291+ 
| ices 1265+ 1269+ 1270+ 1274+ 1275+ 1279+ 1281+ 1284+ 1285+ 1291+ 
+ 
1296+ 
| Pmskl3 1264+ 1265+ 1269+ 1270+ 1274+ 1275+ 1279+ 1281+ 1284+ 1285+ 1291+ 
ise 1265+ 1269+ 1270+ 1274+ 1275+ 1279+ 1281+ 1284+ 1285+ 1291+ 
on 
1296+ 
Pmskl4 1277+ 1278+ 1282+ 1283+ 1287+ 1288+ 1292+ 1294+ 1297+ 1298+ 1304+ 
ieces 1279+ 1283+ 1284+ 1288+ 1289+ 1293+ 1295+ 1298+ 1299+ 1305+ 
+ 
1310+ 
LASTAD Pmskl2 381+4 
381+4 
Pmskl3  381+4 
381+4 
Pmskt4 394+4 
395 +4 
LAU Pmskl2 352+* 572+ 
352+* 572+ 
Pmskl3 352+* 572+ 
352+* 572+ 
Pmskl4  365+* 585+ 
366+* 586+ 
| AUTO Pmskl2 358+* 582+ 
358+* 582+ 
Pmskl3 358+* 582+ 
358+* 582+ 
Pmskl4  371+* 595+ 
372+* 596+ 
LBT Pmskl4 17634 
17644 
LCLEAN Pmskl2 364+* 592+ 
364+* 592+ 
Pmskl3 364+* 592+ 
364+* 592+ 
Pmskl4 377+* 605+ 
378+ 606+ 
LDU Pmskl2  370+* 602+ 
370+* 602+ 
Pmskl3  370+* 602+ 
370+* 602+ 
Pmskl|4 383+* 615+ 
384+* 616+ 
LF Pmskl4 20634 
20644 
LFS Pmskl4 20644 5442 
20654 5443 
LINIT Pmskl2 346+* 562+ 
346+* 562+ 
Pmskl3 346+* 562+ 
346+* 562+ 
Pmskl4 359+* 575+ 
360+* 576+ 
LOADTS Pmskl2 969+ 974+# 983+ 


969+ 974+# 983+ 


LOC 


LOE 


LOT 


LOW 


LRPT 


LST_PAT 
LST_REM_ENTRY 


LST_TSTED_ARR 
LUN 
LUN_MISS_MSG 
L_1_0_DATA 
L_CHIP_TBL 
L_ERROR_MAP 
L_FAILING_CHIP 
L_RANDOM_DATA 





Pmskl2 
Pmsk 13 
Pmsk L4 
Pmskl2 
Pmskl3 
Pmskl4 
Pmskl2 
Pmskl3 
Pmskl4 
Pmskl4 
Pmsk L4 


Pmskl4 
Pmskl4 
Pmsk 4 
Pmskl4 
Pmskl4 
Pmsk 4 
Pmskl4 
Pmsk 4 


4759 
4760 


4791 
4792 


4822 
4823 


SEQ 0288 


829+ 833+ 840+# SEQ 0289 


MSDFLT Pmskl2 866+ 879+ 895+ 927+# 1339+ 1376+ 1412+ 
866+ 879+ 895+ 927+# 1339+ 1376+ 1412+ 

Pmskl3 866+ 879+ 895+ 927+# 1339+ 1376+ 1412+ 

866+ 879+ 895+ 927+# 1339+ 1376+ 1412+ 

Pmski4 879+ 892+ 908+ 940+# 1352+ 1389+ 1425+ 

880+ 893+ 909+ 941+# 1353+ 1390+ 1426+ 


MSE XCP Pmskl2 1341+ 1378+ 1432+ 


MSRAD Pmski2 877+ 893+ 902+# 1337+ 1374+ 1410+ 
877+ 893+ 902+# 1337+ 1374+ 1410+ 
Pmskl3 877+ 893+ 902+# 1337+ 1374+ 1410+ 
877+ 893+ 902+# 1337+ 1374+ 1410+ 
Pmskl4 890+ 906+ 915+# 1350+ 1387+ 1423+ 
891+ 907+ 916+# 1351+ 1388+ 1424+ 
MSXFER Pmskl2 1265+ 1270+ 1275+ 1279+# 
1265+ 1270+ 1275+ 1279+ 
Pmskl3 1265+ 1270+ 1275+ 1279+# 
1265+ 1270+ 1275+ 1279+4 
Pmskl4 1278+ 1283+ 1288+ 1292+4 
1279+ 1284+ 1289+ 1293+4 
MANUAL Pmskl2  297+4 
297+ 
Pmskl3 297+4 
297+ 
Pmskl4 310+4 
311+4 
MAP_CHIP_TBL Pmskl4 16594 1977 
16604 1978 
MAP_ML11_REG Pmskl4 17154 1987 
17164 1988 
MAP_REM_TBL Pmskl4 16504 1962 1963 
16514 1963 1964 
MAP_TMP_BLST_TBL Pmskl4 17064 1981 
17074 1982 
MAP_WRT_BUF Pmskl4 16834 1968 
16844 1969 
MASK Pmskl2 862+ 868+ 873+ 881+ 1363+ 1386+ 1400+ 1421+ 
862+ 868+ 873+ 881+ 1363+ 1386+ 1400+ 1421+ 
Pmskl3 862+ 868+ 873+ 881+ 1363+ 1386+ 1400+ 1421+ 
862+ 868+ 873+ 881+ 1363+ 1386+ 1400+ 1421+ 
Pmskl4 875+ 881+ 886+ 894+ 1376+ 1399+ 1413+ 1434+ 
876+ 882+ 887+ 895+ 1377+ 1400+ 1414+ 1435+ 
MAX_CHIP_COL Pmskl4 1991 3176 3461 3748 4123 4163 4971 54694 54794 
1992 3177 3462 3749 4124 4164 4972 54704 54804 
MCPE Pmskl4 17224 
17234 
MDPE Pmskl4 17504 
17514 
MEMLOC Pmskl2 283+ 284+4 


Pmskl3 283+ 284+4 


283+ 284 +4 SEQ 0290 
Pmskl4 296+ 297+4# 
297+ 298+ 
MEMORY Pmskl2 283+4 
283+4 
Pmskl3 283+4 
2835+4 
Pmskl4 296 +4 
297+ 
MEM_ERR_MSG Pmskl4 20504 5340 
20514 5341 
ML11A Pmskl4 16354 5460 
16364 5461 
MLAS Pmskl4 15654 2180 
15664 2181 
MLBA Pmskl4 15604 2175 2242 2269 2379 2440 2489 
15614 2176 2243 2270 2380 2441 2490 
MLBAE Pmskl4 FL 
MLCS1 Pmskl4 15584 2128 2173 2243 2270 2380 2382 2401 2441 2443 2456 
15594 2129 2174 2244 2e71 2381 2383 2402 2442 2444 2457 
2490 2492 2505 
2491 2493 2506 
MLCS2 Pmskl4 15624 2122 2123 2177 2239 2266 2376 2386 2405 2437 2486 
15634 2123 2124 2178 2240 2267 2377 2387 2406 2438 2487 
4638 5491 
4639 5492 
MLCS3 Pmskl4 15804 
15814 
MLD1 Pmskl4 15744 2305 2342 
15754 2306 2343 
MLD2 Pmskl4 15754 2306 2343 
15764 2307 2344 
MLDA Pmskl4 15614 2176 2241 2268 2378 2439 2488 
15624 2177 2242 2269 2379 2440 2489 
MLDB Pmskl4 liens 
MLDS Pmskl4 15634 2178 2399 2454 2503 
15644 2179 2400 2455 2504 
MLDT Pmskl4 15704 2182 
15714 2183 
MLE1 Pmskl4 15724 
15734 
MLE2 Pmskl4 15734 2307 2344 4756 4788 4819 
15744 2308 2345 4757 4789 4829 
MLEE Pmski4 15764 2184 4621 4624 4630 
1577# 2185 4622 4625 4631 
MLEL Pmskl4 15774 2185 
15784 2186 
MLER Pmskl4 15644 2179 
15654 2180 
MLLA Pmskl4 ty 4 
MLMR Pmskl4 15694 2133 2135 2137 2139 2141 2143 2145 2147 2149 2181 
15704 2134 2136 2138 2140 2142 2144 2146 2148 2150 2182 
5161 5190 5492 
5162 5191 5493 
MLPA Pmskl4 15674 4080 4091 5156 5185 5254 5272 
15684 4081 4092 5157 $186 5255 §273 


F 
— MLPD Pmskl4 15784 4082 4093 4749 4781 4812 5157 5186 5257 5275 
15798 4083 4094 4750 4782 4813 5158 5187 5258 5276 SEQ 0291 
MLREG Pmskl4 2112 211464 21158 2116 
2113 21154 21164 2117 
_ MLSN Pmskl4 15714 2183 
15728 2184 
| MLWC Pmskl4 15594 2174 2240 2267 2377 2438 2487 
15604 2175 2241 2268 2378 2439 2488 
| ML_ADDR Pmskl4 1987 2114 2116 2173 2174 2175 2176 2177 2178 2179 2180 
1988 2115 2117 2174 2175 2176 2177 2178 2179 2180 2181 
2181 2182 2183 2184 2185 2382 2386 2399 2401 2405 2443 
2182 2183 2184 2185 2186 2383 2387 2400 2402 2406 2444 
2454 2456 2492 2503 2505 3077 4082 4093 4621 4624 4630 
2455 2457 2493 2504 2506 3078 4083 4094 4622 4625 4631 
4638 4749 4756 781 4788 4812 4819 5161 5190 5257 5275 
4639 4750 4757 4782 4789 4813 4820 5162 5191 5258 5276 
54544 5492 
54554 5493 
ML_ALL Pmskl4 18984 2114 2173 2174 2175 2176 2177 2178 2179 2180 2181 
18994 2115 2174 2175 2176 2177 2178 2179 2180 2181 2182 
2182 2183 2184 2185 
2183 2184 2185 2186 2 
ML_DUT Pmekl4 1992 2123 2239 2266 2376 2437 2486 54554 5491 5560 
1993 2124 2240 2267 2377 43 2487 54564 5492 5561 
ML_REG Pmskl4 1921 19234 1924 
1922 19248 1925 
MCL Pmski4 17624 
17634 
MOST_OF TEN Pmski4 3470 35554 3559 36264 
3471 35564 3560 36274 
MR_PRINT Pmskl4 20864 2181 
20874 2182 
MR_REG Pmski4 18034 2133 2135 
18044 2134 2136 
MSGADR Pmski2 862+ 868+ 873+ 881+ 886+ 897+ 1326+ 1349+ 1363+ 1386+ 1400+ 
1tSt. 868+ 873+ 881+ 886+ 897+ 1326+ 1349+ 1363+ 1386+ 1400+ 
7 
1421+ 


Pmski3 862+ 868+ 873+ 881+ 886+ 897+ 1326+ 1349¢ 1363+ 1386+ 1400+ 
862+ 868+ 873+ 881+ 886+ 857+ 1326+ 1349* 1363+ 1386+ 1400+ 


1421+ 
1421+ 
Pmski4 875+ 881% 886+ 894+ 899+ 910+ 1339+ 1362+ 1376+ 1399+ 1413+ 
tore 882+ RB7+ Ro 900+ 9il+ 1340+ 1363+ 1377+ 1400+ 1414+ 
ot 
1435¢ 
MSGPTR Pmsk!2 1114 117+ 121+ 1274 1316 137+ 141+ 147+ 
111¢ 117+ 121+ 127+ 131¢ 137+ 1414 147+ 
Pmsk | 3 111¢ 117+¢ 121¢ 127+ 131+ 137+ 141+ 147+ 
111¢ 117+ I2le¢ 127¢ 1316 137+ 141¢ 147+ 
Pmskl46 124¢ 130+ 134+ 140+ 144+ 150+ 154+ 160+ 
125+¢ 1316 135¢ 141+ 745+ 151¢ 155+ 161+ 
MULT Pmski2 249+ 253+ 
249+ 253+ 
Pmski3 249+ 253+ 
249% 253+ 
Pmskl4  262¢ 266+ 
263+ 267+ 
MxF Pmskl4 17494 


M_ARR 
M_BNK 

" M_BNK_NO 
~ M_BRD_NO 
| MLCORRECT 
| M_put 
M_OPTION 
| MRET 

| M_RH_BASE 
M_SYS 
NAM 


NO_AD_MSG 
NO_A_RADIK 


Pmskl3 
Pmsk 3 
Pmsk 3 
Pmskl3 
Pmsk13 
Pmskl3 
Pmskl3 
Pmskl3 
Pmsk 3 
Pmsk (3 
Pmskl2 
Pmskl3 
Pmskl4 
Pmskl2 
Pmsk (3 
Pmsk 4 
Pmskl4 
Pmskl4 
Pmskl4 
Pmsk 14 


VS SWVSSSEE 


PUPP SIOR OS STAT AT SIIUTITATSTUTTT T 


me ek a ad td od td od ot = I 


514+ 


19+ 


BLS NN NN NN NOOAAAAUIUIE & 
=] = NMIMOO S&S FSWWANWWN IO O SAO 


AXXO 
00 00 CO 
+++ 
RRR 


81+4 


mee ed a ed ed ed ed od =) 3 3 = to 3 = 
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SEQ 0292 


4312 
4313 
4402 
4403 


_ NOLODD ADR 


OSAPTS 


JBAU 
} 
O$SBGNRPT 
j 

| 

| O$BGNSF T 
O$DuU 


OSE RRTBL 


O$GNSwW 


| 
au 


Pmsk 3 
Pmskl4 
Pmskl2 
Pmsk (3 
Pmskl4 
Pmskl2 
Pmsk 13 
Pmsk 4 
Pmskl2 
Pmsk 13 
Pmskl4 
Pmskl2 
Pmsk 13 
Pmsk 14 
Pmsk 12 
Pmskl3 
Pmskl4 
Pmskl2 
Pmsk 13 
Pmsk 14 
Pmsk 12 
Pmsk 13 
Pmskl4 
Pmskl2 
Pmsk (3 
Pmskl4 
Pmskl2 
Pmsk 3 
Pmskl4 
Pmskl2 


nMrnrMN-- eS eS ONIN 
MOONE @ Sm MON 


~ +e +e eee + 


ODVOVDOCDVDOVOCOOC OOM 
win-- e e 

WINN 

+~++ 


ek es a a os ss SS 
Oo 
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oO 
+ 


oooo 
=] H— HNNMSOOO 
Nw Ww — 0000 00 
++ eeeerreeeete 


+ 
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+ 
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SEQ 0293 


Pmskl3 94148 
Pmskl4 954+ 
OSPOINTER Pmskl2 947+# 


SEQ 0294 


1+ 1045+ 1049+ 1053 
1+ 1045 1049+ 1053 


7+ 1041+ 1045 1049+ 1053+ 


Pmskl3  9947+4 3 
37+ 1041+ 1045+ 1049+ 1053+ 


Pmski4  960+# 1029+ 1058+ 1062+ 1066+ 


+ 
+ 1059+ 1063+ 1067+ 
| O$SETUP Pmskl2 946+4 
| Pmskl3 -946+# 
Pmski4 959+# 
OFF SET Pmskl2 1455+ 


! 
| 
} 
Pmskl3 1455+ 
Pmskl4 1468+ 76+ 1486+ 1487+ 1494+ 1495+ 2202 22074 22134 
477+ 1487+ 1488+ 1495+ 1496+ 2205 22084 22144 
22144 3038 30464 3055 3062 30644 3089 4584 45924 46104 4670 
22154 3039 30474 3056 3063 30654 3090 4585 4593 46114 4671 


4 
OFFSET _SIZE Pmskl2 1335+ 1372+ 1408+ 1481+4 


Pmskl3 1335+ 1372+ 1408+ 1481+4 


Pmski4 1348+ 1385+ 1421+ 1494+# 
1349+ 1386+ 1422+ 1495+4 


OLDPC Pmskl2 530+ 
: 530+ 
Pmskl3 530+ 
530+ 
Pmskli4 543+ 
544+ 
OLDPSW Pmskl2 530+ 547+4 
530+ 547+a 
Pmskl3 530+ 547+ 
530+ 547+# 
Pmskl4 543+ 560+4 
544+ 561+4 
ONE Pmskl4 15524 2122 2143 2309 3077 3078 3083 3133 3136 3215 3289 
155 2123 2144 2310 3078 3079 3084 3134 3137 3216 
3331 3383 3416 3511 3582 3892 3928 3937 3941 3953 
3332 3384 3417 3512 3583 3893 3929 3938 3942 3950 3954 
4086 4594 4655 4715 5175 5267 5376 
4087 4595 4656 4716 5176 5268 5377 
ONE S Pmskl4 15514 2801 4605 4726 
15524 2802 4606 4727 
ONE _MSG Pmski4 20594 2390 2409 2447 2460 2496 2509 5165 5166 5194 5195 
20604 2391 2410 2448 2461 2497 2510 5166 5167 5195 5196 


OP! 

OPT ION_HWTBL 
ORDY 
OR_OLD_NEW_PD 
Out 


OVER_FLOW 


0_1_PRINT 
0_6_PRINT 
p 


P$PTR 


PAR_CRC_WRD 
PASS 

PAT 

PATS 

PAT_O 

PAT_1 


Pmsk 4 
Pmskl2 
Pmsk\3 
Pmsk 4 
Pmskl4 
Pmsk 14 
Pmskl4 
Pmskl4 
Pmskl2 
Pmsk 3 
Pmskl4 
Pmskl4 


Pmskl4 
Pmsk 4 
Pmskl2 
Pmskl3 
Pmsk 4 
Pmskl2 
Pmsk 13 
Pmsk 14 
Pmskl4 
Pmsk 14 
Pmsk 4 
Pmsk 4 
Pmskl4 
Pmskl4 


5443 
5444 


5444 
5445 


4 
44204 
44214 


44374 





PRE_MOST 
PRE_ SUM 


PD_WRD_SEL 
PE 

PGE 
PM_RD_MODE 
PM_THIS_BANK 
PM_WRT_MODE 
PNT 

PNTR 

POINTER 


Pmsk 14 


,Pmskl4& 


Pmskl4 
Pmskl4 
Pmskl4 


Pmskl4 


Pmskl4 
Pmsk 4 
Pmskl4 
Pmsk 4 
Pmsk 14 
Pmskl2 
Pmskl3 
Pmskl4 
Pmskl2 


Pmsk 3 


Pmsk 4 


Pmskl2 
Pmsk 3 
Pmskl4 
Pmsk 4 
Pmskl4 


So 
So 
_ 

+ 


SSSERE 
-OMUS NN 
+++ + + + 


~N 
Vw 
—_ 
+ 


1043+ 
1043+ 


1043+ 
1043+ 


1056+ 
1057+ 


36034 
36044 


= 7} 


| 
| 
| 
| 
| 
| 
i 
| 
| 
| 
| 
| 
| 
| 
} 


| 
3619 36224 3627 
3620 36234 3628 SEQ 0297 
} PRI Pmskl2 2350+ 1111+ 1183+ 
230+ 1111+ 1183+ 
Pmskl3 230+# 1111+ 1183+ 
| 230+# 11114 1183+ 
Pmskl4 24344 1124+ 1196+ 
444% 1125+ 1197+ 
| PRIOO Pmskl2 218+ 1510 
218+ 1510 
Pmskl3 218+ 
218+4 
Pmskl4& 231+ 
232+4 
PRIO1 Pmski2 217+ 
217+# 
Pmskl3 217+4 
217+ 
Pmskl4  230+4 
231+ 
PRIO2 Pmskl2 216+4 
216+4 
Pmskl3 216+4 
216+4 
Pmskl4 229+4 
230+4 
PRIO3 Pmskl2 215+4 
215+4 
Pmskl3 215+ 
215+4 
Pmskl4  228+4 
229+ 
PRIO4 Pmskl2 214+ 
214+ 
Pmskl3 214+4 
214+4 
Pmskl4  227+# 
228+4 
PRIOS Pmskl2 213+# 
213+4 
Pmskl3 213+# 
213+4 
Pmskl4 226+4 
227+# 
PR106 Pmskl2 212+4 
212+4 
Pmskl3 212+ 
2le+# 
Pmski4  225+# 
226+4 
PRIO7 Pmskl2 211+4 
21144 
Pmskl3 211+ 
211+4 
Pmskl4 224+ 
22o5 +h 
PRINTB Pmskl2 692+ 


| 

j 

! 

| 
PRINTF 
PRINTS 
PRINTX 
PRIO 
PRIOR 
PRIORITY 
PROM_ADRS 


PROM_DIS 
PROM_RW 


PTSNUM 


Pmskl4 


Pmskl2 
Pmskl3 
Pmsk 4 
Pmskl2 
Pmskl3 
Pmskl4 
Pmskl2 
Pmsk 3 
Pmsk 14 
Pmskl2 
Pmsk 3 
Pmsk 14 
Pmskl2 
Pmskl3 
Pmskl4 
Pmskl2 
Pmskl3 
Pmsk 14 
Pmskl4 


Pmsk l4 
Pmskl4 
Pmskl2 


705+4 
706+4 


MUTT E SE PONMONMUNM 
WWE &WWOOON™N 


WRN -NARULS SWS 


N 


74 


WMT ES & PoNPoNnono 
Re 
co 


2180 
177 178 2179 2180 2 SEQ 0298 
76 2 2 $508 





7 
405+# 406+ 412+ 423+ 429+ 435+ 438+ 444+ SEQ 0299 


424+ 427+ 
Pmskl3 424+ 427+# 
424+ 427+# 
Pmskl4 437+ 440+4 
438+ 441+ 
PTBL_PTR Pmskl4 5373 5407 5423 5424 5425 5426 5427 5428 5429 5430 5431 
5374 5408 5424 5425 5426 5427 5428 5429 5430 5431 5432 
PTR Pmskl4 3814 38614 38764 3921 40024 4003 
3815 38624 387784 3922 40034 4004 
PURGE Pmskl4 3304 3305 3346 3347 
3305 3306 3347 3348 
PUR_LOC Pmskl4 3293 296 3300 3304 3335 3338 3342 3346 
3294 329 3301 3305 3336 3339 3343 3347 
P_DIS Pmskl4 17974 2145 
17984 2146 
P_RW Pmskl4 17964 2141 
17974 2142 
Q Pmskl2 157+ 158+ 159+ 160+ 161+ 162+ 
157+ 158+ 159+ 160+ 161+ 162+ 
Pmskl3 157+ 158+ 159+ 160+ 161+ 162+ 
157+ 158+ 159+ 160+ 161+ 162+ t 
Pmsk 4 170+ 171+ 172+ 173+ 174+ 175+ 
171+ 172+ 173+ 174+ 175+ 176+ 
QD_0_SUM Pmskl4 4204 43004 4302 4308 
4205 43014 4303 4309 
QD_1_SUM Pmskl4 4205 42954 43344 4348 4354 
: 4206 42964 43354 4349 4355 
QD_2_SUM Pmskl4 4206 42964 43174 4389 4395 
4207 429784 43184 4390 4396 
QD_3_SUM Pmskl4 4207 42974 43634 44194 4430 4436 
4208 42984 43644 44204 4431 4437 
QD_LOOP Pmsk l4 3840 
QD_NUM_SEARCH Pmski4 3817 38304 38354 3851 
3818 38314 38364 3852 
QD_OFF SET Pmski4 3818 38384 38424 3851 
; 3819 38394 38434 3852 
QD_PAIR_LOOP Pmskl4 3816 38294 38344 3840 3924 
3817 38304 38354 3841 3925 
QD_ SEARCH Pmsk l4 2 3855 3932 
852 3856 3933 
QUANTITY Pmski4 3255 3300 3304 3305 3307 3320 3342 3346 3347 3349 
3256 3301 3305 3306 3308 3321 3343 3347 3348 3350 
RADIX Pmskl2 873+ 877+ 886+ 889+ 893+ 1326+ 1333+ 1337+ 1363+ 1370+ 1374+ 
873+ 877+ 886+ 889+ 893+ 1326+ 1333+ 1337+ 1363+ 1370+ 1374+ 
1466+ 1467+ 
1466+ 1467+ 


+ 1337+ 1363+ 13706 1374+ 
. 1337+ 1363+ 1370+ 1374+ 


Pmski4 886+ 890+ 899+ 902+ 906+ 1339¢ 1346+ if ” 1376+ 1a 1387+ 
+ o 


1388+ 


aH ALPACA HRM eee er ee wr er ee ee ee MMM eM eM eM 24 44 44 44 - 


_—-——----- 


RANDAT Pmskl4 1946 3 
4 SEQ 0300 
RANDOM _ INDE x Pmskl4 2634 64 2641 26424 


221 
| 1947 227 
263 


RAND _ INDEX pmskl4 03% $067 3077  3089# 4585 4596" 4618 4648 4651. 4670# = 4699 
$036 $068" 3078 $090 ©4586, 4597 G19, 4649 4652 M6rt# 4700 


| 
} 
RAND_PASS Pmskl4 2013 4594 4715 54934 55034 55144 
2014 4595 4716 54944 55044 55154 
RANGEN Pmskl4 1937* 2211 
1938* 2212 
RAN_1 Pmskl4 16644 2702 2809 2817 
16654 2703 2810 2818 
RAN_10 Pmskl4 16734 2729 2944 2952 
16744 2730 2945 2953 
RAN_11 Pmskl4 16744 2732 2959 2967 
16754 2733 2960 2968 
RAN_12 Pmskl4 16754 2735 2974 2982 
16764 2736 2975 2983 
RAN_13 Pmskl4 16764 2738 2989 2993 
16774 2739 2990 2994 
RAN_2 Pmskl4 16654 2705 2824 2832 
16664 2706 2825 2833 
RAN_3 Pmskl4 16664 2708 2839 2847 
16674 2709 2840 2848 
RAN_4 Pmskl4 16674 2711 2854 2862 
16684 2712 2855 2863 
RAN_5 Pmskl4 16684 2714 2869 2877 
16694 2715 2870 2878 
RAN_6 Pmskl4 16694 2717 2884 2892 
16704 2718 2885 2893 
RAN_7 Pmskl4 16704 2720 2899 2907 
16714 2721 2900 2908 
RAN_8 Pmskl4 16714 2723 2914 2922 
16724 2724 2915 2923 
RAN_9 Pmskl4 16724 2726 2929 2937 
16734 2727 2930 2938 
RDY Pmskl4 17244 
17254 
RD_BUF Pmskl4 1969 3066 4643 4648 4651 4735 
1970 3067 4644 4649 4652 4736 
RD_OLD_PROM_DATA Pmskl4 4043* 4220 
4044* 4221 
RD_PROM_MODE Pmskl4 21324 4068 5241 
21334 4069 5242 
RD_TRANSFER Pmskl4 2466* 4643 
2467* 4644 
RD_XFER_MSG Pmskl4 20524 2496 2509 
20534 2497 2510 
READBUS Pmskl2 276+4 
276+4 
Pmskl3 276+ 
276+4 
Pmskl4  289+# 
290+4 
READE F Pmskl2 819+4 
819+4 


833+# 5392 SEQ 0301 
REF _MAR Pmski4 17958 , 
| REMAINDER Pmskl4 4956  4990# 4992  S000# 5002 5015 5023 5025 5038  5046# 5048 


4957 49914 4993 sda 5003 5016 50244 5026 5039 50474 5049 


| 
| 
| 50664 5068 50834 5085 
| REM_PTR Pmskl4 3140 3219 3220 3227 3228 3233 3234 32384 3253 
3141 3220 3221 3228 3229 3234 3235 32394 3254 
REM_TBL Pmskl4 1962 25694 32194 32274 32334 3296 33054 3308 33504 3391 3394 
1963 25704 32208 32284 32344 3297 33064 3309 33514 3392 3395 
33954 33964 3519 3522 
33964 33974 3509 3520 3523 
| REP_M7363_MSG Pmskl4 20494 5165 5194 
20504 5166 5195 
REP_PRINT Pmskl4 20764 4554 5332 5341 
20774 4555 5333 5342 
RET_DRS_MSG Pmskl4 20354 5412 5444 5532 5634 
20364 5413 5445 5533 5635 
REVERSEACTUALS Pmskl2 695+ 702+ 709+ 716+ 723+# 728+ 
695+ 702+ 709+ 716+ 723+# 728+ 
Pmskl3 695+ 702+ 709+ 716+ 723+# 728+ 
695+ 702+ 709+ 716+ 723+# 728+ 
Pmskl4 708+ 715+ 722+ 729+ 736+# 741+ 
709+ 716+ 723+ 730+ 737+# 742+ 
REVLEV Pmskl2 1111+ 1141+ 
1111+ 1141+ 
Pmskl3 1111+ 1141+ 
1111+ 1141+ 
Pmskl4 1124+ 1154+ 
1125+ 1155+ 
RFLAGS Pmskl2 269+4 
269+ 
Pmskl3  269+4 
269+4 
Pmskl4 282+4 
283+4 
RH Pmskl4 19174 1923 1987 
19184 1924 1988 
RH_BASE_HWTBL Pmskl4 5369 54284 5454 
5370 54294 5455 
RMR Pmskl4 17784 
17794 
ROUT Pmskl2 111+ 117+ 121+ 127+ 131+ 137+ 141+ 147+ 668+ 669+ 
111+ 117+ 121+ 127+ 131+ 137+ 141+ 147+ 668+ 669+ 
Pmskl3 111+ 117+ 121+ 127+ 131+ 137+ 141+ 147+ 668+ 669+ 
111+ 117+ 121+ 127+ 131+ 137+ 141+ 147+ 668+ 669+ 
Pmskl4 124+ 130+ 134+ 140+ 144+ 150+ 154+ 160+ 681+ 682+ 
125+ 131+ 135+ 141+ 145+ 151+ 155+ 161+ 682+ 683+ 
ROW Pmskl4 16524 3227 3228 3233 3234 3338 3424 3579 3590 3593 
16534 3228 3229 3234 3235 3339 3425 3580 3591 3594 
ROW_0_127_OF F Pmskl4 4208 42354 42434 4247# 4296 4300 
4209 423 42444 42484 4297 4301 
ROW_128_255_OFF Pmskl4 4209 42364 42744 42784 4295 4297 
4210 42374 42754 4279% 4296 4298 
ROW_CNT Pmskl4 3813 38604 38754 38954 3897 
3814 38614 38764 38964 3898 
ROW_MOST_OF TEN Pmskl4 3669 3690 3697 3699 
3670 3691 3698 3700 





ROW PURGE 
ROW_SEL 
ROW_SORT 
ROW_SUM 
RO_CL 


RPT 


ye 
SEARCH 
SEC_CNT 


SEC_NUM 


SEED1 
SEED2 
SEED3 
SFL_BNK 


SERIAL_REG 
SETPRI 


Pmsk 4 
Pmsk 4 
Pmsk 14 
Pmskl4 
Pmsk lé 


Pmskl2 
Pmsk 3 
Pmsk 4 
Pmsk 14 
Pmsk 14 
Pmsk 4 
Pmskl4 
Pmsk l4 
Pmskl4 


Pmskl4 


Pmskl4 
Pmsk 4 
Pmskl4 
Pmsk 4 


Pmskl4 
Pmskl2 


D 8 


3081 3082 3171 

3082 3083 3172 

3913 3916 3970 

3914 3917 3971 

4247 4269 4272 

4248 4270 4273 

4399 4402 4438 

4400 4403 4439 

5257 

5258 

3699 3700 

3700 3701 

2570 3305 3308 

2571 3306 3309 

3696 3704 3761 

3697 3705 3762 

3136 3697 3705 

3137 3698 3706 

2401 2443 2456 

2402 2444 2457 

2639 2641 2660 

2640 2642 2661 

3206 3210 3215 

3207 3211 3216 

3994 

3995 

45894 47048 49044 
45904 47054 49054 
45904 47054 49054 
45914 47064 49064 
45914 47064 49064 
4592 4707# 49074 
4082 4093 4224 

4083 4094 4225 

5249 5257 5261 

5250 5258 5262 


31934 
31944 


3350 
3351 


3913 
3914 


2505 
2506 


4614 
4615 


3889 
3890 


3394 
3395 


3916 
3917 


4617 
4618 


3892 
3893 


3395 
3396 


4643 
4644 


3909 
3910 


3396 
3397 


4743 
4744 


3965 
3966 


3844 
3 SEQ 0302 
— 4082 


3427 
3428 


4775 
4776 


3970 
3971 


SETUP 


SETVEC 


SET_FLG 


SFPTBL 
SFT 


SGL 
SIZE 


SIZING 
SN_PRINT 
SRC 


STANDARD 


START 


START_MSG 
START_SEC 


Pmskl3 676+4 


676+4 
Pmskl4 689+4 
690+4 
Pmskl2 1051+ 
1051+ 
Pmskl3 1051+ 
1051+ 
Pmskl4 1064+ 
1065+ 
Pmskl2 668+4 
668+4 
Pmskl3 668+4 
668+4 
Pmsk l4 681+4 
682+4 


Pmskl4 16364 2690 2696 2699 2702 


Pmskl4 2009 2218 2240 2245 2267 
2010 2219 2241 224° 2268 
2466 2487 26414 266'4 30664 
2467 2488 26424 266¢H 30674 


4020 4038 

Pmskl4 20304 5395 
20314 5396 

Pmskl4 3173 31874 31924 3206 3819 
3174 31884 31934 3207 3820 


22974 


46184 


22974 


38784 
38794 


2377 
2378 


38844 
38854 


2417 
2418 


2417 
2418 


748+4 
748+4 
748+8 
748+4 
761+4 
762+# 


3889 
3890 


SEQ 0303 


2438 
2439 


2440 
2441 


' Suc Pmskl2 


163+4 
163+4 SEQ 0304 
Pmskl3 16.3 +4 
163+4 
Pmskl4 176+4 
177+# 
| SUM_MOST Pmskl4 3470 35564 3559 36274 
3471 35574 3560 36284 
| SUPRES_MSG Pmskl4 20344 5166 5195 5411 5443 5531 
ee 20354 5167 5196 5412 5444 5532 
SW Pmskl2 1031+ 
1031+ 
Pmskl3 1031+ 
1031+ 
Pmskl4& 1044+ 
1045+ 
SWTBLS_RET Pmskl2 1228 
Sw_BUG_MSG Pmski4 20444 
20454 
SYS_HWTBL Pmskl4 5364 54234 5488 
5365 54244 5489 
S_BLAST_TBL Pmskl4 3435* 4228 
3436* 4229 
S_BUF _ INDEX Pmskl4 2291 2295F 2296 23124 2313 
2292 22964 2297 23138 2314 
S_CHIP_TBL Pmski4 4019* 4895 4933 5324 
4020* 4896 4934 5325 
S_ COLUMNS Pmskl4 3470* 3688 
3471* 3689 
S_COL_CNT_TBL Pmskt4 3717* 4525 
3718* 4526 
S_ERROR_MAP Pmski4 3773* 4520 
3774* 4521 
S_REM_TBL Pmskli4 3630* 4530 
3631* 4531 
S_ROWS Pmskl4 3559* 3690 
3560* 3691 
TSE$TAG Pmskl2 306+ 312+ 319+ 448+4# 476+ 477+ 489+ 490+ 509+ 510+ 
306+ 312+ 319+ 448+# 476+ 477+ 489+ 490+ 509+ 510+ 
Pmskl3 306+ 312+ 319+ 448+# 476+ 477+ 489+ 490+ 509+ 510+ 


Pmskl4 319+ 325+ 332+ 461+# 489+ 490+ 502+ 503+ S2e+ 525+ 
TSCODE Pmskl2 341+# 865+ 867+ 868+ 876+ 878+ 880+ 881+ 892+ 894+ 896+ 


Pmski 3 341+ 865+ 867+ 868+ 876+ 878+ 880+ 881+ 892+ 894+ 896+ 


Pmskl4 354+# 878+ 880+ 881+ 


91le 1344+ 1350+ 1352+ 


—----- 


G 8 


1394+ 1399+ 1417+ 1422+ 1424+ 1426+ 1429+ 1434+ 1447+ 
1395+ 1400+ 1418+ 1423+ 1425+ 1427+ 1430+ 1435+ 1448+ SEQ 0305 
TSEKCP Pmskl2 1245+8 1329+ 1351+ 1366+ 1388+ 1403+ 1439+ 1446+ 
1245+# 1329+ 1351+ 1366+ 1388+ 1403+ 1439+ 1446+ 
Pmskl3 1245+# 1329+ 1351+ 1366+ 1388+ 1403+ 1439+ 1446+ 
1245+ 1329+ 1351+ 1366+ 1388+ 1403+ 1439+ 1446+ 
Pmski4 1258+4 1342+ 1364+ 1379+ 1401+ 1416+ 1452+ 1459+ 
1259+# 1343+ 1365+ 1380+ 1402+ 1417+ 1453+ 1460+ 
TEEREE Pmskl2 391+ 393+ 416+ 
391+ 393+ 416+ 
Pmski3 391+ 393+ 416+ 
391+ 393+ 416+ 
Pmskl4 404+ 406+ 429+ 
405+ 407+ 430+ 
TSHILIM Pmskl2 1243+# 1349+ 1386+ 1447+ 1449+ 
1263+4 1349+ 1386+ 1447+ 1449+ 
Pmskl3 1243+ 1349+ 1386+ 1447+ 1449+ 
1243+4 1349+ 1386+ 1447+ 1449+ 
Pmskl4 1256+# 1362+ 1399+ 1460+ 1462+ 
1257+# 1363+ 1400+ 1461+ 1463+ 
TSLOLIM Pmskl2 1244+ 1349+ 1386+ 1440+ 1442+ 
1244+# 1349+ 1386+ 1440+ 1442+ 
Pmski3 1244+4 1349+ 1386+ 1440+ 1442+ 
1244+4 1349+ 1386+ 1440+ 1442+ 
Pmskl4 1257+# 1362+ 1399+ 1453+ 1455+ 
1258+4 1363+ 1400+ 1454+ 1456+ 
TEPTHY Pmskl2 401+# 1117+ 1146+ 
401+# 1117+ 1146+ 
Pmskl3 401+4 1117+ 1146+ 
401+4 1117+ 1146+ 
Pmskl4 414+ 1130+ 1159+ 
415+# 1131+ 1160+ 
TSRAP Pmskl2 241+ 246+ 563+ 573+ 583+ 593+ 603+ 613+ 629+ 760+ 858+4 


Pmskl3 241+ 266+ 563+ 573+ 583+ 593+ 603+ 613+ 629+ 760+  858+# 
Pmski4 254+ 259+ 576+ 586+ 596+ 606+ 616+ 626+ 642+ 773+ 87144 
TSRAPRO Pmski2. 305+ 3114 318+ 326+ 491% 511+ 647% 661+ 665+4 


305+ 3114 318+ «= 326+ «= 497 «= 5114 «= 647+ = 661+ = 6654 
Pmskl3. 305+ «= 3114 = 318+ = 326+ = 491+ «= 5114 = 47+ = 614 = 66S 4# 
305+ 311+ = 318+ «= 326+ = 491+ = 511% ~=— 647+ = 661% = 66 54 
Pmskl4 318+ 3246+ 331+ 339% 504+ 524+ 660+ 674+  678+4 
319+ 325+ 332+ 360+ 505+ 525+ 661% 675+ 679+ 
TSTEMP Pmskl2  340+# 866+ 867+ 877+ 878+ 879+ 880+ 893+ 894+ 895+ 896+ 
340+# 866+ 867+ 877+ 878+ 879+ 880+ 893+ 894+ 895+ 896+ 
1337+ 1338+ 1339+ 1340+ 1374+ 1375+ 1376+ 13774 1410* 1411* 14124 
1337+ 1338+ 1339+ 1340+ 1374+ 1375+ 1376+ 1377+ 1410+ 14114 1412¢ 


Pmskl3 340+ 866+ 867+ 877+ 878+ 879+ 880+ 893+ 894+ 895+ 896+ 


3 

d 

Pmsk 14 Stise ae 880+ 890+ 891+ 892+ 893+ 906+ 907+ 908+ 909+ 
t29 1351+ 


| TBL 


TBL INDEX 


TEMP 


TEMP_ARRSBNK_SEL 


TEMP_TSTED_BNK 


TEN_MS 
THREE _MSG 
TIME 


TIME_OUT_MSG 
TMP_BLST_TBL 


TRAP 


Pmskl2 
Pmskl3 
Pmskl4 
Pmsk 14 


Pmskl4 
Pmsk l4 


Pmskl4 
Pmskl4 
Pmsk l4 
Pmskl2 
Pmsk 13 
Pmsk 14 
Pmski4 
Pmskl4 


Pmsk 12 


Pmsk 3 


Pmskl& 


EEN 
NNN™N 
~+++ 


MODODOOOLS 
ans 
onl 
++ 


ht RS ee 
MO 

— 

+ 


1488+ 
1489+ 


36974 


36984 
36994 


37044 
37054 


37054 
37064 


681+4 
681+4 
756+8 
756+4 


681+4 
681+4 
756+4 
756+4 


694 +4 
695+# 
769+8 
77O+# 


SEQ 0306 


37064 
37074 


689+8 
689+4 
787+8 
787+# 


689+ 


TYPE 


UAM 


UNC 


UNIT 


UNS 


SN Se iS ss nesses enact nanan 
— oe 


VALUECBIT 


UNC_CHIP_MSG 
UNC_ERR_MSG 


UNIT_SEL_MSG 


UNX_DRV_ERR_MSG 


821+4 
822+8 


829+ 
830+ 


4 865+4 
+# 866+ 


868+4 
869+4 


54944 
54954 


87 i+ 
872+ 


55C4a4 
55054 


2508 
2509 


551 
551 


5a 
164 


5574 
5575 


5607 
5608 


SEQ 0307 


5620 
5621 


creme aimed - —+-+-- -—--- 
' 


| VECADD 


| VER_BLAST 

| VER_ERROR_MASK 
vv 
wee 
wC_PRINT 
wC_REG 
wRD 
WRD_CNT 


wRD_ INDEX 


| 
! 
wRT_BUF 
WRT_CHK_ TRANSFER 


wRT_PROM_MODE 
WRT_RH 


WRT_TRANSFER 
wWRT_XFER_MSG 
WT_CHK_XFER_MSG 
. 


XSALWAYS 


Pmskl2 
Pmsk 3 
Pmskl4 
Pmskl4 
Pmsk l4 
Pmsk 14 
Pmskl4 
Pmskl4 
Pmskl4 
Pmsk 14 
Pmskl4 


Pmsk 14 


Pmsk 14 


Pmskl4 
Pmsk 14 
Pmsk L4 


Pmsk 4 
Pmsk 14 
Pmsk l4 
Pmsk 14 


Pmskl2 
Pmsk 13 


J 8 


5212* 5620 
5289* 5620 
5290* 5621 
17664 
17674 


8 22044 22054 22064 
1969 22054 22064 22074 
2641 26584 2661 3077 
2642 26594 2662 3078 
2356* 4617 
2357* 4618 
21344 5135 
21354 5136 


2148 50 2240 2241 
2270 2305 2306 2307 
2271 306 2307 2308 


2136 2137 2138 2139 
2137 2138 2139 2140 


2150 
97+# 1265+ 
97+# 1265+ 
97+# 1265+ 
97+# 1265+ 


2145 
2146 


SEQ 0308 


2148 
2149 


XSF AL SE 
| MSOFFSET 


X$STRUE 


| 
X$XFER_SKIP 
XFER 
XFERF 
XFERT 


X_MSG 

X_PRINT 
x_TMP_BLST_TBL 
X_TO_REM_TBL 
VES 


ZERO 


Pmsk 14 
Pmskl2 
Pmsk 3 
Pmskl4 
Pmskl2 
Pmsk 13 
Pmsk 14 
Pmskl2 
Pmskl3 
Pmskl4 
Pmskl2 
Pmskl3 
Pmsk 4 
Pmskl2 
Pmskl3 
Pmskl4 
Pmskl2 
Pmskl3 
Pmsk L4 
Pmskl2 
Pmskl3 
Pmskl4 
Pmsk 4 
Pmskl4 
Pmskl4 
Pmskl4 
Pmskl2 
Pmsk 3 
Pmsk 14 
Pmskl4 


POMPGNMPININNMNGNINMNIMNMAIMoPONOTY 


1547 
1547 


3064 
3065 


3067 3077 3078 
3068 3078 3079 


Se  — 


3083 
3084 


3133 
3134 


3137 
3138 


SEQ 0309 


3179 
3180 


r- 


3192 3204 3210 3215 3464 3508 3579 3675 3679 3860 3875 
3193 3205 3211 3216 3465 3509 3580 3676 3680 3861 3 SEQ 0310 
3892 3928 3937 3941 3949 3953 4074 4126 4235 4236 4237 
3893 3929 3942 3950 3954 4075 4127 4236 4237 4238 


5085 5147 5153 5181 5249 5325 5406 5408 5596 5610 

ZEROES Pmskl4 15534 2526 2540 2554 2569 2570 2585 2599 2613 2790 3764 
1554@ 2527 2541 2555 2570 2571 2586 2600 2614 2791 3765 
4069 4589 4592 4596 4602 4642 4723 4918 5136 5243 5453 
4070 4590 4593 4597 4603 4643 4724 4919 5137 5244 5454 
5570 5571 5572 
5571 5572 5573 





Name 
SCODES 


SOWNS 
SPLITS 
EXKXS 
$xvZ$ 
. ABS. 


Loc 
002000 
002000 


034224 
073262 


077712 


100236 
100246 


PSECT Storage Map 


Length 
000000 
032224 


037036 
004430 
000324 


000010 
000000 


/Start 


002000 


003352 
073262 
073724 
077712 
100010 
100116 


100236 


Length 


000200 


030652 
000442 
003766 
000076 
000106 
000120 


000010 


Module 


BSKEL2 


BSKEL4 
BSKEL3 
BSKEL4 
RANDOM 
B16SAV 
B16PN1 


LSTAD 


SEQ 0311 


Map of Global Symbols 
PSECT Module ABS Value 
$ BI6SAV 


SSAVES 000014 $SXXx$ BIGSAV 100024 $CODE$ 
soaee 000032 $XxxX$ BI6SAV 100042 SCODES 


SXXX$ 6SAV 

BLSDIV 000224 SCODES BI6MUL 003260 SCODES 
BLS$GT1 Q00000 $Xxx$ BI6PN] 100116 SCODES 
BL$GT2 000000 SCODES B16PG2 002542 SCODES 
BLSMOD 000236 SCODE$S BI6MUL 003272 SCODES 
BLSPU2 000000 SCODES 616PG4 002704 SCODES 
BLSSHF 000250 SCODE$ BI6MUL 003304 SXXx$ ,SCODES 
L$AU__- 000264 SCODES BSKEL3 002464 SCODES 
L$AUTO 000240 SCODES BSKEL3 002440 SCODES 
LSCLEA 030642 SCODES BSKEL4 034214 SCODES 
LSDESC 000036 SCODES BSKEL3 002236 $CODES 
LSDLY 000116 SCODE$ BSKEL2 002116 SCODE$ 
L$DU_ 000252 SCODES BSKEL3 002452 $CODES 
LSDVTY 000000 SCODES BSKEL3 002200 S$CODES 

000070 SCODE$ BSKEL3 002270 S$CODE$ 
LSINIT 027776 SCODES BSKEL4 035350 $CODES 
LSLAST 0CO0004 $xYZ$ LSTAD_ 100242 SCODES 
LSRPT 000226 $SCODE$ BSKEL3 002426 SCODES 
LSSOFT 000214 $CODE$ BSKEL3 002414 SCODES 

000012 SCODE$ BSKEL2 002012 S$CODES 
RANDAT 000074 $XXX$ RANDOM 100006 SCODES 
RANGEN 000000 $XXX$ RANDOM 077712 SCODES 


w 
M4) 
» 
< 
mm 
~w 
S 
8 
S 
bg 
=< 
bad 
=< 
@ 
— 
oOo 
oO 
So 
— 
So 
wn 
aoc 
Os 
= 
mm 
wf 


4) 
> 
< 
m 
uw 
wi 
Mw 
@w 
— 
— 
oS 
So 
oO 
oO 
™~m 
sad 
ao 
oO 
=) 
m 
wf 


cr 
£ 
> 
2] 
9 
o 


- 
5 
~ 
Nm 


000070 
SEED3 000072 $xxx$ RANDOM 100004 $CODE$ 
000000 LSTAD 000000 $CODE$ 
T 030530 SCODES BSKEL4 034102 $CODE$ 


SEQ 0312 


